MT#61404 add daemon-tests-t38

Just add the make target. Don't run it as part of the test suite as it's
quite extensive. Update the script a bit as well.

Change-Id: I192e90413bd7ffde842571324c816e4271367b42
(cherry picked from commit 0f55781a58)
(cherry picked from commit 3fd9b90b0a)

t/Makefile

@@ -100,7 +100,7 @@ include ../lib/common.Makefile
 .PHONY:		all-tests unit-tests daemon-tests daemon-tests \
 	daemon-tests-main daemon-tests-jb daemon-tests-dtx daemon-tests-dtx-cn daemon-tests-pubsub \
 	daemon-tests-intfs daemon-tests-stats daemon-tests-delay-buffer daemon-tests-delay-timing \
-	daemon-tests-evs daemon-tests-player-cache daemon-tests-redis
+	daemon-tests-evs daemon-tests-player-cache daemon-tests-redis daemon-tests-t38
 
 TESTS=		test-bitstr aes-crypt aead-aes-crypt test-const_str_hash.strhash
 ifeq ($(with_transcoding),yes)
@@ -194,6 +194,10 @@ daemon-tests-rtpp-flags:	daemon-test-deps
 daemon-tests-async-tc:	daemon-test-deps
 	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-async-tc.pl
 
+daemon-tests-t38:	daemon-test-deps spandsp_recv_fax_pcm spandsp_recv_fax_t38 \
+			spandsp_send_fax_pcm spandsp_send_fax_t38
+	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-t38.pl
+
 test-bitstr:	test-bitstr.o
 
 test-mix-buffer:	test-mix-buffer.o $(COMMONOBJS) mix_buffer.o ssrc.o rtp.o crypto.o helpers.o \

t/auto-daemon-tests-t38.pl

@@ -14,7 +14,7 @@ autotest_start(qw(--config-file=none -t -1 -i 203.0.113.1 -i 2001:db8:4321::1
 		or die;
 
 
-my ($sock_a, $sock_b, $port_a, $port_b, $ssrc, $resp, $srtp_ctx_a, $srtp_ctx_b, @ret1, @ret2);
+my ($sock_a, $sock_b, $port_a, $port_b, $resp, $srtp_ctx_a, $srtp_ctx_b, @ret1, @ret2);
 
 
 
@@ -66,6 +66,7 @@ sub t38_gw_test {
 	my $sqo = 1000;
 	my $tso = 3000;
 	my $ts = -1;
+	my $ssrc = -1;
 
 	my $rev = $opts{reverse} // 0;
 	my $pcm_sock = $rev ? $sock_a : $sock_b;
@@ -362,11 +363,6 @@ t38_gw_test('T.38 after re-invite',
 
 
 
-done_testing();
-exit;
-
-
-
 ($sock_a, $sock_b) = new_call([qw(198.51.100.1 4016)], [qw(198.51.100.3 4018)]);
 
 ($port_a) = offer('plain T.38, reverse invite', { 'T.38' => [ 'force' ], ICE => 'remove',
@@ -683,4 +679,5 @@ t38_gw_test('FEC span 5',
 
 
 
+#done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit;
 done_testing();