From 794797c23fac8fce4a72635fd52bf495f98a9d6d Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Fri, 23 May 2025 15:01:05 -0400
Subject: [PATCH] MT#55283 tests for I100d0d0476b

Change-Id: I6cc0c1f185f3c159423fc1f4a0977e506bd1343e
---
 t/Makefile                        |    8 +-
 t/auto-daemon-tests-asymmetric.pl | 1701 +++++++++++++++++++++++++++++
 2 files changed, 1707 insertions(+), 2 deletions(-)
 create mode 100755 t/auto-daemon-tests-asymmetric.pl

diff --git a/t/Makefile b/t/Makefile
index e34e8f402..1d551366f 100644
--- a/t/Makefile
+++ b/t/Makefile
@@ -107,7 +107,7 @@ include ../lib/common.Makefile
 	daemon-tests-evs daemon-tests-player-cache daemon-tests-redis daemon-tests-redis-json \
 	daemon-tests-measure-rtp daemon-tests-mos-legacy daemon-tests-mos-fullband daemon-tests-config-file \
 	daemon-tests-templ-def daemon-tests-templ-def-offer daemon-tests-t38 daemon-tests-evs-dtx \
-	daemon-tests-transform daemon-tests-http daemon-tests-heuristic
+	daemon-tests-transform daemon-tests-http daemon-tests-heuristic daemon-tests-asymmetric
 
 TESTS=		test-bitstr aes-crypt aead-aes-crypt test-const_str_hash.strhash
 ifeq ($(with_transcoding),yes)
@@ -150,7 +150,8 @@ daemon-tests: daemon-tests-main daemon-tests-jb daemon-tests-pubsub daemon-tests
 	daemon-tests-templ-def daemon-tests-templ-def-offer \
 	daemon-tests-sdp-manipulations daemon-tests-sdes-manipulations \
 	daemon-tests-sdp-orig-replacements daemon-tests-moh daemon-tests-evs-dtx daemon-tests-transform \
-	daemon-tests-transcode-config daemon-tests-codec-prefs daemon-tests-http daemon-tests-heuristic
+	daemon-tests-transcode-config daemon-tests-codec-prefs daemon-tests-http daemon-tests-heuristic \
+	daemon-tests-asymmetric
 
 daemon-test-deps:	tests-preload.so
 	$(MAKE) -C ../daemon
@@ -164,6 +165,9 @@ daemon-tests-jb:	daemon-test-deps
 daemon-tests-heuristic:	daemon-test-deps
 	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-heuristic.pl
 
+daemon-tests-asymmetric:	daemon-test-deps
+	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-asymmetric.pl
+
 daemon-tests-dtx:	daemon-test-deps
 	./auto-test-helper "$@" perl -I../perl auto-daemon-tests-dtx.pl
 
diff --git a/t/auto-daemon-tests-asymmetric.pl b/t/auto-daemon-tests-asymmetric.pl
new file mode 100755
index 000000000..a5f15c4315
--- /dev/null
+++ b/t/auto-daemon-tests-asymmetric.pl
@@ -0,0 +1,1701 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use NGCP::Rtpengine::Test;
+use NGCP::Rtpclient::SRTP;
+use NGCP::Rtpengine::AutoTest;
+use Test::More;
+
+
+autotest_start(qw(--config-file=none -t -1 -i 203.0.113.1
+			-n 2223 -f -L 7 -E))
+		or die;
+
+
+my ($sock_a, $sock_b, $sock_c, $sock_d, $sock_e, $port_a, $port_b);
+
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2010)], # caller
+	[qw(198.51.100.3 2012)], # callee - from SDP
+	[qw(198.51.100.3 2032)], # callee - different port
+	[qw(198.51.100.6 2012)], # callee - different address
+	[qw(198.51.100.6 2032)], # callee - all different
+);
+
+($port_a) = offer('default, forward', { flags => ['asymmetric'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2010 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('default, forward', { flags => ['asymmetric'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2012 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2009, 5440, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2010, 5600, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2050)], # caller
+	[qw(198.51.100.3 2052)], # callee - from SDP
+	[qw(198.51.100.3 2072)], # callee - different port
+	[qw(198.51.100.6 2052)], # callee - different address
+	[qw(198.51.100.6 2072)], # callee - all different
+);
+
+($port_a) = offer('default, reverse', { flags => ['asymmetric'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2050 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('default, reverse', { flags => ['asymmetric'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2052 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2009, 5440, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2010, 5600, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2030)], # caller
+	[qw(198.51.100.3 2032)], # callee - from SDP
+	[qw(198.51.100.3 2052)], # callee - different port
+	[qw(198.51.100.6 2032)], # callee - different address
+	[qw(198.51.100.6 2052)], # callee - all different
+);
+
+($port_a) = offer('default, forward, strict source', { flags => ['asymmetric', 'strict source'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2030 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('default, forward, strict source', { flags => ['asymmetric', 'strict source'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2032 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2070)], # caller
+	[qw(198.51.100.3 2072)], # callee - from SDP
+	[qw(198.51.100.3 2092)], # callee - different port
+	[qw(198.51.100.6 2072)], # callee - different address
+	[qw(198.51.100.6 2092)], # callee - all different
+);
+
+($port_a) = offer('default, reverse, strict source', { flags => ['asymmetric', 'strict source'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2070 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('default, reverse, strict source', { flags => ['asymmetric', 'strict source'] }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2072 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2106)], # caller
+	[qw(198.51.100.3 2108)], # callee - from SDP
+	[qw(198.51.100.3 2128)], # callee - different port
+	[qw(198.51.100.6 2108)], # callee - different address
+	[qw(198.51.100.6 2128)], # callee - all different
+);
+
+($port_a) = offer('forward, el=off', { flags => ['asymmetric'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2106 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('forward, el=off', { flags => ['asymmetric'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2108 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2009, 5440, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2010, 5600, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2146)], # caller
+	[qw(198.51.100.3 2148)], # callee - from SDP
+	[qw(198.51.100.3 2168)], # callee - different port
+	[qw(198.51.100.6 2148)], # callee - different address
+	[qw(198.51.100.6 2168)], # callee - all different
+);
+
+($port_a) = offer('reverse, el=off', { flags => ['asymmetric'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2146 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('reverse, el=off', { flags => ['asymmetric'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2148 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2009, 5440, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2010, 5600, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2126)], # caller
+	[qw(198.51.100.3 2128)], # callee - from SDP
+	[qw(198.51.100.3 2148)], # callee - different port
+	[qw(198.51.100.6 2128)], # callee - different address
+	[qw(198.51.100.6 2148)], # callee - all different
+);
+
+($port_a) = offer('forward, strict source, el=off', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2126 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('forward, strict source, el=off', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2128 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2166)], # caller
+	[qw(198.51.100.3 2168)], # callee - from SDP
+	[qw(198.51.100.3 2188)], # callee - different port
+	[qw(198.51.100.6 2168)], # callee - different address
+	[qw(198.51.100.6 2188)], # callee - all different
+);
+
+($port_a) = offer('reverse, strict source, el=off', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2166 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('reverse, strict source, el=off', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'off' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2168 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2168)], # caller
+	[qw(198.51.100.3 2170)], # callee - from SDP
+	[qw(198.51.100.3 2190)], # callee - different port
+	[qw(198.51.100.6 2170)], # callee - different address
+	[qw(198.51.100.6 2190)], # callee - all different
+);
+
+($port_a) = offer('forward, el=heuristic', { flags => ['asymmetric'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2168 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('forward, el=heuristic', { flags => ['asymmetric'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2170 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2009, 5440, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2010, 5600, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2208)], # caller
+	[qw(198.51.100.3 2210)], # callee - from SDP
+	[qw(198.51.100.3 2230)], # callee - different port
+	[qw(198.51.100.6 2210)], # callee - different address
+	[qw(198.51.100.6 2230)], # callee - all different
+);
+
+($port_a) = offer('reverse, el=heuristic', { flags => ['asymmetric'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2208 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('reverse, el=heuristic', { flags => ['asymmetric'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2210 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2002, 4320, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2005, 4800, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2006, 4960, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2009, 5440, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2010, 5600, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2188)], # caller
+	[qw(198.51.100.3 2190)], # callee - from SDP
+	[qw(198.51.100.3 2210)], # callee - different port
+	[qw(198.51.100.6 2190)], # callee - different address
+	[qw(198.51.100.6 2210)], # callee - all different
+);
+
+($port_a) = offer('forward, strict source, el=heuristic', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2188 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('forward, strict source, el=heuristic', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2190 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2004, 4640, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2008, 5280, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+
+($sock_a, $sock_b, $sock_c, $sock_d, $sock_e) = new_call(
+	[qw(198.51.100.1 2228)], # caller
+	[qw(198.51.100.3 2230)], # callee - from SDP
+	[qw(198.51.100.3 2250)], # callee - different port
+	[qw(198.51.100.6 2230)], # callee - different address
+	[qw(198.51.100.6 2250)], # callee - all different
+);
+
+($port_a) = offer('reverse, strict source, el=heuristic', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio 2228 RTP/AVP 0 8
+c=IN IP4 198.51.100.1
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.1
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('reverse, strict source, el=heuristic', { flags => ['asymmetric', 'strict source'], 'endpoint learning' => 'heuristic' }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio 2230 RTP/AVP 0 8
+c=IN IP4 198.51.100.3
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.3
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 0 8
+c=IN IP4 203.0.113.1
+a=rtpmap:0 PCMU/8000
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1000, 3000, 0x1234, "\x00" x 160));
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2000, 4000, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2000, 4000, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1001, 3160, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1001, 3160, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2001, 4160, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2001, 4160, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1002, 3320, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1002, 3320, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2002, 4320, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1003, 3480, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1003, 3480, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2003, 4480, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2003, 4480, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1004, 3640, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1004, 3640, 0x1234, "\x00" x 160));
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2004, 4640, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1005, 3800, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1005, 3800, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2005, 4800, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1006, 3960, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1006, 3960, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2006, 4960, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1007, 4120, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1007, 4120, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2007, 5120, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2007, 5120, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1008, 4280, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1008, 4280, 0x1234, "\x00" x 160));
+
+# wait for fix
+sleep(4);
+
+# callee send from different everything
+snd($sock_e, $port_a, rtp(0, 2008, 5280, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1009, 4440, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1009, 4440, 0x1234, "\x00" x 160));
+# callee send from different port
+snd($sock_c, $port_a, rtp(0, 2009, 5440, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1010, 4600, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1010, 4600, 0x1234, "\x00" x 160));
+# callee send from different address
+snd($sock_d, $port_a, rtp(0, 2010, 5600, 0x1234, "\x00" x 160));
+rcv_no($sock_a);
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1011, 4760, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1011, 4760, 0x1234, "\x00" x 160));
+# callee send from expected
+snd($sock_b, $port_a, rtp(0, 2011, 5760, 0x1234, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(0, 2011, 5760, 0x1234, "\x00" x 160));
+# caller send, forward to expected
+snd($sock_a, $port_b, rtp(0, 1012, 4920, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(0, 1012, 4920, 0x1234, "\x00" x 160));
+
+rcv_no($sock_a);
+rcv_no($sock_b);
+rcv_no($sock_c);
+rcv_no($sock_d);
+rcv_no($sock_e);
+
+
+#done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit;
+done_testing();