diff --git a/t/auto-daemon-tests-dtls.pl b/t/auto-daemon-tests-dtls.pl
index cea99d7e4..0158c06ef 100644
--- a/t/auto-daemon-tests-dtls.pl
+++ b/t/auto-daemon-tests-dtls.pl
@@ -110,7 +110,1527 @@ rtpe_req('delete', 'delete');
 
 
 
-done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit;
+($sock_a) = new_call([qw(198.51.100.35 3060)]);
+
+$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('re-invite bkw passive port change B', {
+	'transport-protocol' => 'RTP/AVP',
+	SDES => 'off',
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3060 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_a, $port_ax, undef, $tls_id_a) = answer('re-invite bkw passive port change B', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+# passive connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_a]]);
+$fingerprint = $dtls->[0]->fingerprint();
+
+offer('re-invite bkw passive port change B', {
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3060 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_b, $port_bx, undef, $tls_id_b) = answer('re-invite bkw passive port change A/B', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 2998 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+isnt($port_a, $port_b, 'different port');
+isnt($tls_id_a, $tls_id_b, 'different TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_b]);
+$dtls->connect();
+$mux->loop();
+
+
+rtpe_req('delete', 'delete');
+
+
+
+
+($sock_a, $sock_b) = new_call([qw(198.51.100.35 3056)], [qw(198.51.100.35 3058)]);
+
+$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('re-invite bkw passive port change A/B', {
+	'transport-protocol' => 'RTP/AVP',
+	SDES => 'off',
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3056 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_a, $port_ax, undef, $tls_id_a) = answer('re-invite bkw passive port change A/B', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+# passive connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_b]]);
+$fingerprint = $dtls->[0]->fingerprint();
+
+offer('re-invite bkw passive port change A/B', {
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3058 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_b, $port_bx, undef, $tls_id_b) = answer('re-invite bkw passive port change A/B', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 2998 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+isnt($port_a, $port_b, 'different port');
+isnt($tls_id_a, $tls_id_b, 'different TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+# active connect
+$mux->add($sock_b);
+@components = ([$sock_b, $port_b]);
+$dtls->connect();
+$mux->loop();
+
+
+rtpe_req('delete', 'delete');
+
+
+
+
+($sock_a, $sock_b) = new_call([qw(198.51.100.35 3052)], [qw(198.51.100.35 3054)]);
+
+$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('re-invite bkw passive port change A', {
+	'transport-protocol' => 'RTP/AVP',
+	SDES => 'off',
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3052 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_a, $port_ax, undef, $tls_id_a) = answer('re-invite bkw passive port change A', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+# passive connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_b]]);
+$fingerprint = $dtls->[0]->fingerprint();
+
+offer('re-invite bkw passive port change A', {
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3054 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_b, $port_bx, undef, $tls_id_b) = answer('re-invite bkw passive port change A', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+isnt($tls_id_a, $tls_id_b, 'different TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+# active connect
+$mux->add($sock_b);
+@components = ([$sock_b, $port_b]);
+$dtls->connect();
+$mux->loop();
+
+
+rtpe_req('delete', 'delete');
+
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3050)]);
+
+$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('re-invite bkw force passive', {
+	'transport-protocol' => 'RTP/AVP',
+	SDES => 'off',
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3050 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_a, $port_ax, undef, $tls_id_a) = answer('re-invite bkw force passive', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+offer('re-invite bkw force passive', {
+	'rtcp-mux' => 'demux',
+	DTLS => 'passive',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3050 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_b, $port_bx, undef, $tls_id_b) = answer('re-invite bkw force passive', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+rtpe_req('delete', 'delete');
+
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3048)]);
+
+$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('re-invite bkw passive', {
+	'transport-protocol' => 'RTP/AVP',
+	SDES => 'off',
+	'rtcp-mux' => 'demux',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3048 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_a, $port_ax, undef, $tls_id_a) = answer('re-invite bkw passive', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+offer('re-invite bkw passive', {
+	'rtcp-mux' => 'demux',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3048 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_b, $port_bx, undef, $tls_id_b) = answer('re-invite bkw passive', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:passive
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+rtpe_req('delete', 'delete');
+
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3046)]);
+
+$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('re-invite bkw', {
+	'transport-protocol' => 'RTP/AVP',
+	SDES => 'off',
+	'rtcp-mux' => 'demux',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3046 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_a, $port_ax, undef, $tls_id_a) = answer('re-invite bkw', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:active
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+# passive connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->accept();
+$mux->loop();
+
+
+offer('re-invite bkw', {
+	'rtcp-mux' => 'demux',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3046 RTP/SAVP 0
+a=setup:actpass
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+
+($port_b, $port_bx, undef, $tls_id_b) = answer('re-invite bkw', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:active
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+rtpe_req('delete', 'delete');
+
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3042)], [qw(198.51.100.35 3044)]);
+
+$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) = offer('re-invite fwd with B port change', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+answer('re-invite fwd with B port change', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3042 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+
+($port_b, $port_bx, undef, $tls_id_b) = offer('re-invite fwd with B port change', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+# reset DTLS
+$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_a]]);
+$fingerprint = $dtls->[0]->fingerprint();
+
+answer('re-invite fwd with B port change', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3042 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+rtpe_req('delete', 'delete');
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3040)]);
+
+$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) = offer('re-invite fwd with role change', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+answer('re-invite fwd with role change', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3040 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+
+($port_b, $port_bx, undef, $tls_id_b) = offer('re-invite fwd with role change', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+# reset DTLS
+$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_a]]);
+$fingerprint = $dtls->[0]->fingerprint();
+
+answer('re-invite fwd with role change', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3040 RTP/SAVP 0
+a=setup:passive
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# passive connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->accept();
+$mux->loop();
+
+
+
+rtpe_req('delete', 'delete');
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3038)]);
+
+$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) = offer('re-invite fwd passive', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+answer('re-invite fwd passive', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3038 RTP/SAVP 0
+a=setup:passive
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# passive connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->accept();
+$mux->loop();
+
+
+
+($port_b, $port_bx, undef, $tls_id_b) = offer('re-invite fwd passive', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+answer('re-invite fwd passive', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3038 RTP/SAVP 0
+a=setup:passive
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+rcv_no($sock_a);
+
+
+
+rtpe_req('delete', 'delete');
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3036)]);
+
+$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) = offer('re-invite fwd', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+answer('re-invite fwd', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3036 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+rcv_no($sock_a);
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+
+($port_b, $port_bx, undef, $tls_id_b) = offer('re-invite fwd', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_b, 'same port');
+is($tls_id_a, $tls_id_b, 'same TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+
+answer('re-invite fwd', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3036 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+rcv_no($sock_a);
+
+
+
+rtpe_req('delete', 'delete');
+
+
+
+($sock_a) = new_call([qw(198.51.100.35 3034)]);
+
+$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) = offer('re-invite fwd with A port change', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+is($port_a, $port_ax, 'rtcp-mux');
+
+answer('re-invite fwd with A port change', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3034 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+rcv_no($sock_a);
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+
+
+($port_b, $port_bx, undef, $tls_id_b) = offer('re-invite fwd with A port change', {
+	'transport-protocol' => 'RTP/SAVP',
+	SDES => 'off',
+	'rtcp-mux' => 'require',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 2998 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+SDP
+
+isnt($port_a, $port_b, 'new port');
+isnt($tls_id_a, $tls_id_b, 'new TLS ID');
+is($port_b, $port_bx, 'rtcp-mux');
+
+rcv_no($sock_a);
+
+# reset DTLS
+$dtls = NGCP::Rtpclient::DTLS::Group->new($mux, $dtls_func, [[$sock_a]]);
+$fingerprint = $dtls->[0]->fingerprint();
+
+
+answer('re-invite fwd with A port change', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.35
+t=0 0
+m=audio 3034 RTP/SAVP 0
+a=setup:active
+a=fingerprint:sha-256 $fingerprint
+a=rtcp-mux
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+rcv_no($sock_a);
+
+# active connect to new port
+$mux->add($sock_a);
+@components = ([$sock_a, $port_b]);
+$dtls->connect();
+$mux->loop();
+
+
+
+
+rtpe_req('delete', 'delete');
+
+
+
+($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',
+}, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+c=IN IP4 198.51.100.99
+t=0 0
+m=audio 3000 RTP/AVP 0
+-----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.23
+s=tester
+t=0 0
+m=audio PORT RTP/SAVP 0
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=sendrecv
+a=rtcp:PORT
+a=rtcp-mux
+a=setup:actpass
+a=fingerprint:sha-256 FINGERPRINT256
+a=tls-id:TLS_ID
+a=ice-ufrag:ICEUFRAG
+a=ice-pwd:ICEPWD
+a=candidate:ICEBASE 1 UDP 2130706431 203.0.113.1 PORT typ host
+a=candidate:ICEBASE 1 UDP 2130706175 2001:db8:4321::1 PORT typ host
+SDP
+
+is($port_a, $port_b, 'same port');
+
+# send check and receive response
+($packet, $tid) = NGCP::Rtpclient::ICE::stun_req(0, 65534, 1, 'ydfgd', $ufrag_a, $pwd_a);
+snd($sock_a, $port_a, $packet);
+rcv($sock_a, -1, qr/^\x01\x01\x00.\x21\x12\xa4\x42(............)\x80\x22\x00.rtpengine/s);
+
+# active connect
+$mux->add($sock_a);
+@components = ([$sock_a, $port_a]);
+$dtls->connect();
+$mux->loop();
+
+rtpe_req('delete', 'delete');
+
+
+
 
 ($sock_a) = new_call([qw(198.51.100.35 3028)]);