diff --git a/t/auto-daemon-tests-dtls.pl b/t/auto-daemon-tests-dtls.pl index 1d0da3bd5..cea99d7e4 100644 --- a/t/auto-daemon-tests-dtls.pl +++ b/t/auto-daemon-tests-dtls.pl @@ -25,7 +25,7 @@ my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $ssrc, $ssrc_b, $resp, $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, $has_recv, $tmp_blob, $pwd_a, $pwd_b, $packet, $tls_id_a, $tls_id_b, $dtls, $mux, $fingerprint, - $fingerprint_a, $fingerprint_b, @components); + $fingerprint_a, $fingerprint_b, @components, $packet, $tid); @@ -47,9 +47,121 @@ sub mux_input { $comp->{_connected} or return; } + ok(1, 'DTLS connected'); $mux->endloop(); }; + + + +($sock_a) = new_call([qw(198.51.100.35 3032)]); + +$mux = IO::Multiplex->new(); +$mux->set_callback_object(__PACKAGE__); +$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_a]]); +$fingerprint = $dtls->[0]->fingerprint(); + +($port_a, $port_ax, undef, $tls_id_a, $ufrag_a, $pwd_a, undef, $port_b) = offer('ICE + DTLS fwd early start', { + 'transport-protocol' => 'RTP/SAVP', + SDES => 'off', + 'rtcp-mux' => 'require', + ICE => 'force', +}, <add($sock_a); +@components = ([$sock_a, $port_a]); +$dtls->connect(); +$mux->loop(); + +rtpe_req('delete', 'delete'); + + + +done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit; + +($sock_a) = new_call([qw(198.51.100.35 3028)]); + +$mux = IO::Multiplex->new(); +$mux->set_callback_object(__PACKAGE__); +$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_a]]); +$fingerprint = $dtls->[0]->fingerprint(); + +offer('ICE + DTLS bkw early start', { + 'transport-protocol' => 'RTP/AVP', + ICE => 'remove', + 'rtcp-mux' => 'demux', +}, <add($sock_a); +@components = ([$sock_a, $ret1[0]]); +$dtls->accept(); +$mux->loop(); + +rtpe_req('delete', 'delete'); + + + ($sock_a, $sock_ax, $sock_b, $sock_bx) = new_call([qw(198.51.100.35 3008)], [qw(198.51.100.35 3009)], [qw(198.51.100.35 3010)], [qw(198.51.100.35 3011)]);