From 51b9ddaeea446d45ef2ee54b70108477d65a9eab Mon Sep 17 00:00:00 2001 From: Richard Fuchs Date: Fri, 19 Sep 2025 09:23:38 -0400 Subject: [PATCH] MT#63317 ice/bundle tests Change-Id: Ibec51d9ee50073336dd03d675faa3c4bc4b738ff --- perl/NGCP/Rtpengine/AutoTest.pm | 1 + t/auto-daemon-tests-bundle.pl | 124 +++++++++++++++++++++++++++++++- 2 files changed, 124 insertions(+), 1 deletion(-) 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' }, <