diff --git a/t/auto-daemon-tests.pl b/t/auto-daemon-tests.pl index 4c5836fd8..b2da5925a 100755 --- a/t/auto-daemon-tests.pl +++ b/t/auto-daemon-tests.pl @@ -93,6 +93,7 @@ sub offer_answer { $regexp =~ s/CRYPTO128/([0-9a-zA-Z\/+]{40})/gs; $regexp =~ s/CRYPTO192/([0-9a-zA-Z\/+]{51})/gs; $regexp =~ s/CRYPTO256/([0-9a-zA-Z\/+]{62})/gs; + $regexp =~ s/LOOPER/([0-9a-f]{12})/gs; my $crlf = crlf($resp->{sdp}); like $crlf, qr/$regexp/s, "$name - output '$cmd' SDP"; my @matches = $crlf =~ qr/$regexp/s; @@ -122,7 +123,9 @@ sub rcv { my $addr = $sock->recv($p, 65535, 0) or die; alarm(0); my ($hdr_mark, $pt, $seq, $ts, $ssrc, $payload) = unpack('CCnNN a*', $p); - print("rtp recv $pt $seq $ts $ssrc " . unpack('H*', $payload) . "\n"); + if ($payload) { + print("rtp recv $pt $seq $ts $ssrc " . unpack('H*', $payload) . "\n"); + } if ($cb) { $p = $cb->($hdr_mark, $pt, $seq, $ts, $ssrc, $payload, $p, $cb_arg); } @@ -2600,6 +2603,163 @@ rcv($sock_a, $port_b, rtpm(101, 4003, 5320, $ssrc, "\x05\x0a\x01\x40")); +# gh #766 + +my $sock_c; +($sock_a, $sock_b, $sock_c) = new_call([qw(198.51.100.5 7300)], [qw(198.51.100.6 7302)], [qw(198.51.100.7 7304)]); + +(undef, $port_a) = offer('gh 766 orig', { + ICE => 'remove', replace => ['origin', 'session-connection'], + flags => [ "loop-protect", "asymmetric" ] }, < 'remove', replace => ['origin', 'session-connection'], + flags => [ "loop-protect", "asymmetric" ] }, < $tt, + ICE => 'remove', replace => ['origin', 'session-connection'], + flags => [ "loop-protect", "asymmetric" ] }, < 'remove', replace => ['origin', 'session-connection'], + flags => [ "loop-protect", "asymmetric" ] }, <