@ -14,7 +14,7 @@ autotest_start(qw(--config-file=none -t -1 -i 203.0.113.1 -i 2001:db8:4321::1
or die ;
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 $ sqo = 1000 ;
my $ tso = 3000 ;
my $ tso = 3000 ;
my $ ts = - 1 ;
my $ ts = - 1 ;
my $ ssrc = - 1 ;
my $ rev = $ opts { reverse } // 0 ;
my $ rev = $ opts { reverse } // 0 ;
my $ pcm_sock = $ rev ? $ sock_a : $ sock_b ;
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 ) ] ) ;
( $ 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' ,
( $ 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 ( ) ;
done_testing ( ) ;