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 35bf7d313b)

t/Makefile

@@ -106,7 +106,7 @@ include ../lib/common.Makefile
 	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-redis-json \
 	daemon-tests-measure-rtp daemon-tests-mos-legacy daemon-tests-mos-fullband daemon-tests-config-file \
-	daemon-tests-templ-def daemon-tests-templ-def-offer
+	daemon-tests-templ-def daemon-tests-templ-def-offer daemon-tests-t38
 
 TESTS=		test-bitstr aes-crypt aead-aes-crypt test-const_str_hash.strhash
 ifeq ($(with_transcoding),yes)
@@ -237,6 +237,10 @@ daemon-tests-templ-def-offer:	daemon-test-deps
 daemon-tests-templ-def:	daemon-test-deps
 	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-templ-def.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();