From 3fd9b90b0a511e65ebad1d23b4d5ebafd69fadf1 Mon Sep 17 00:00:00 2001 From: Richard Fuchs Date: Tue, 25 Feb 2025 12:05:07 -0400 Subject: [PATCH] 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 0f55781a58e4d34d70cd412727d5fdc8bc8d7ff2) --- t/Makefile | 6 +++++- t/auto-daemon-tests-t38.pl | 9 +++------ 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/t/Makefile b/t/Makefile index 36f72655d..615f6df2a 100644 --- a/t/Makefile +++ b/t/Makefile @@ -104,7 +104,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) @@ -198,6 +198,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 \ diff --git a/t/auto-daemon-tests-t38.pl b/t/auto-daemon-tests-t38.pl index 5fe59d34f..63772290a 100755 --- a/t/auto-daemon-tests-t38.pl +++ b/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();