diff --git a/t/auto-daemon-tests-pubsub.pl b/t/auto-daemon-tests-pubsub.pl index 94362b5ef..eb77c383e 100755 --- a/t/auto-daemon-tests-pubsub.pl +++ b/t/auto-daemon-tests-pubsub.pl @@ -21,7 +21,7 @@ my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $port_c, $ssrc_a, $ssr $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, $sock_f, $sock_g, $sock_h, $port_f, $port_g, $port_h, - $port_cx, $port_dx, $port_gx, $port_hx); + $port_dx, $port_gx, $port_hx, $ssrc); @@ -30,6 +30,330 @@ use_json(1); +if ($ENV{RTPENGINE_EXTENDED_TESTS}) { + +($sock_a, $sock_b, $sock_c, $sock_d) = + new_call( + [qw(198.51.100.43 6000)], + [qw(198.51.100.43 6002)], + [qw(198.51.100.43 6004)], + [qw(198.51.100.43 6006)], + ); + +($port_a) = offer('mixed sub control', + { }, < ['all'] }, < $ttr }, < ['all', 'mix'] }, < $ttr }, < ['all', 'mix'], 'audio player' => 'force' }, < $ttr }, <{response}); is($resp->{interfaces}[0]{name}, 'default', 'intf found'); is($resp->{interfaces}[0]{address}, '203.0.113.1', 'address found'); -is($resp->{interfaces}[0]{ports}{used}, 228, 'port usage'); +is($resp->{interfaces}[0]{ports}{used}, $ENV{RTPENGINE_EXTENDED_TESTS} ? 248 : 228, 'port usage'); is($resp->{interfaces}[1]{name}, 'default', 'intf found'); is($resp->{interfaces}[1]{address}, '2001:db8:4321::1', 'address found'); is($resp->{interfaces}[1]{ports}{used}, 2, 'port usage');