|
|
|
|
@ -9,17 +9,15 @@ use Test::More;
|
|
|
|
|
use POSIX;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$ENV{RTPENGINE_EXTENDED_TESTS} or exit;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
autotest_start(qw(--config-file=none -t -1 -i 203.0.113.1 -i 2001:db8:4321::1
|
|
|
|
|
-n 2223 -c 12345 -f -L 7 -E -u 2222 --silence-detect=1 --dtx-delay=10
|
|
|
|
|
--dtx-shift=0))
|
|
|
|
|
or die;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $amr_tests = $ENV{RTPENGINE_EXTENDED_TESTS};
|
|
|
|
|
#my $amr_tests = 0;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $ssrc, $ssrc_b, $resp,
|
|
|
|
|
$sock_ax, $sock_bx, $port_ax, $port_bx,
|
|
|
|
|
$srtp_ctx_a, $srtp_ctx_b, $srtp_ctx_a_rev, $srtp_ctx_b_rev,
|
|
|
|
|
@ -28,8 +26,6 @@ my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $ssrc, $ssrc_b, $resp,
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($amr_tests) {
|
|
|
|
|
|
|
|
|
|
($sock_a, $sock_b) = new_call([qw(198.51.100.10 5210)], [qw(198.51.100.10 5212)]);
|
|
|
|
|
|
|
|
|
|
($port_a) = offer('packet loss',
|
|
|
|
|
@ -1538,7 +1534,6 @@ rcv($sock_b, $port_a, rtpm(96, $seq + 11, 9880, $ssrc, "\xf1\x58\x43\x02\x1c\x1c
|
|
|
|
|
|
|
|
|
|
rtpe_req('delete', 'AMR w reverse DTMF', { 'from-tag' => ft() });
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
($sock_a, $sock_b) = new_call([qw(198.51.100.10 5000)], [qw(198.51.100.10 5002)]);
|
|
|
|
|
|