MT#55283 tests for "create"

Change-Id: I43196c8d9be7bb3fabc26293876fba40fcf3c679

perl/NGCP/Rtpengine/AutoTest.pm

@@ -25,7 +25,8 @@ BEGIN {
 	@ISA = qw(Exporter);
 	our @EXPORT = qw(autotest_start new_call new_call_nc offer answer ft tt cid snd srtp_snd rtp rcv srtp_rcv rcv_no rcv_maybe
 		srtp_dec escape rtpm rtpmre reverse_tags new_ft new_tt crlf sdp_split rtpe_req offer_answer
-		autotest_init subscribe_request subscribe_answer publish use_json rtpe_raw_req);
+		autotest_init subscribe_request subscribe_answer publish create create_answer
+		use_json rtpe_raw_req);
 };
 
 
@@ -207,6 +208,17 @@ sub subscribe_answer {
 sub publish {
 	return offer_answer('publish', @_);
 }
+sub create {
+	my ($name, $req, $sdp_exp) = @_;
+	my $resp = rtpe_req('create', $name, $req);
+	my @matches = sdp_match('create', $name, $resp->{sdp}, $sdp_exp);
+	return ($resp->{'call-id'}, $resp->{'from-tag'}, @matches);
+}
+sub create_answer {
+	my ($name, $req, $sdp) = @_;
+	$req->{sdp} = $sdp;
+	return rtpe_req('create answer', $name, $req);
+}
 sub snd {
 	my ($sock, $dest, $packet, $addr) = @_;
 	$sock->send($packet, 0, pack_sockaddr_in($dest, inet_aton($addr // '203.0.113.1'))) or die;

t/Makefile

@@ -112,7 +112,7 @@ include ../lib/common.Makefile
 	daemon-tests-transform daemon-tests-http daemon-tests-heuristic daemon-tests-asymmetric \
 	daemon-tests-dtx-no-shift daemon-tests-rtcp daemon-tests-redis-subscribe daemon-tests-rtp-ext \
 	daemon-tests-bundle daemon-tests-dtls \
-	daemon-tests-recording
+	daemon-tests-recording daemon-tests-create
 
 TESTS=		test-bitstr aes-crypt aead-aes-crypt test-const_str_hash.strhash
 ifeq ($(with_transcoding),yes)
@@ -161,7 +161,7 @@ daemon-tests: daemon-tests-main daemon-tests-jb daemon-tests-pubsub daemon-tests
 	daemon-tests-transcode-config daemon-tests-codec-prefs daemon-tests-http daemon-tests-heuristic \
 	daemon-tests-asymmetric daemon-tests-rtcp daemon-tests-redis-subscribe daemon-tests-rtp-ext \
 	daemon-tests-bundle daemon-tests-dtls \
-	daemon-tests-recording
+	daemon-tests-recording daemon-tests-create
 
 daemon-test-deps:	tests-preload.so
 	$(MAKE) -C ../daemon
@@ -190,6 +190,9 @@ daemon-tests-dtx-cn:	daemon-test-deps
 daemon-tests-pubsub:	daemon-test-deps
 	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-pubsub.pl
 
+daemon-tests-create:	daemon-test-deps
+	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-create.pl
+
 daemon-tests-transform:	daemon-test-deps
 	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-transform.pl