diff --git a/perl/NGCP/Rtpengine/AutoTest.pm b/perl/NGCP/Rtpengine/AutoTest.pm index 760f6b242..38fee3bdf 100644 --- a/perl/NGCP/Rtpengine/AutoTest.pm +++ b/perl/NGCP/Rtpengine/AutoTest.pm @@ -11,6 +11,7 @@ use Time::HiRes; use POSIX ":sys_wait_h"; use IO::Socket; use Exporter; +use Socket qw,inet_ntop,; our @ISA; diff --git a/t/auto-daemon-tests-bundle.pl b/t/auto-daemon-tests-bundle.pl index 5d5d19d5c..ab4a347fc 100755 --- a/t/auto-daemon-tests-bundle.pl +++ b/t/auto-daemon-tests-bundle.pl @@ -19,7 +19,129 @@ my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $port_c, $ssrc_a, $ssr $sock_ax, $sock_bx, $port_ax, $port_bx, $port_d, $port_dx, $sock_e, $port_e, $sock_cx, $port_cx, $srtp_ctx_a, $srtp_ctx_b, $srtp_ctx_a_rev, $srtp_ctx_b_rev, $ufrag_a, $ufrag_b, @ret1, @ret2, @ret3, @ret4, $srtp_key_a, $srtp_key_b, $ts, $seq, $tag_medias, $media_labels, - $ftr, $ttr, $fts, $ttr2); + $ftr, $ttr, $fts, $ttr2, $ice_ufrag_a, $ice_ufrag_b, $ice_pwd_a, $ice_pwd_b); + + + +($sock_a, $sock_ax, $sock_b, $sock_bx) = + new_call([qw(198.51.100.14 6414)], + [qw(2001:db8:4321::3 6200)], + [qw(198.51.100.14 6416)], + [qw(2001:db8:4321::3 6202)]); + +($port_a, undef, $port_b) = offer('optional bundle w ICE', + { bundle => ['accept'], ICE => 'remove' }, <