From 3ab1cf966b8578cc786f764037332e2f0aed28bb Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Fri, 23 May 2025 10:16:00 -0400
Subject: [PATCH] MT#55283 add extra DTX tests

Change-Id: I49aede640d2c138950f2b86e469b0d95a80ad199
(cherry picked from commit 6221c9ed9388a911b9c178779278b4cc6f90d3bb)
---
 t/auto-daemon-tests-dtx.pl | 378 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 377 insertions(+), 1 deletion(-)

diff --git a/t/auto-daemon-tests-dtx.pl b/t/auto-daemon-tests-dtx.pl
index 1b791ffbe..d1982dd63 100755
--- a/t/auto-daemon-tests-dtx.pl
+++ b/t/auto-daemon-tests-dtx.pl
@@ -27,9 +27,385 @@ my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $ssrc, $ssrc_b, $resp,
 
 
 
-
 if ($amr_tests) {
 
+($sock_a, $sock_b) = new_call([qw(198.51.100.10 5210)], [qw(198.51.100.10 5212)]);
+
+($port_a) = offer('packet loss',
+	{ codec => { transcode => ['L16/16000/1'], } }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5210 RTP/AVP 8
+c=IN IP4 198.51.100.10
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8 96
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=rtpmap:96 L16/16000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('packet loss', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5212 RTP/AVP 96
+c=IN IP4 198.51.100.10
+a=rtpmap:96 L16/16000
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# start @ 0 ms
+snd($sock_a, $port_b,  rtp(8, 2000, 4000, 0x5678, "\x20" x 160));
+# consumed by resampler @ 10 ms
+Time::HiRes::usleep(20000);
+# RTP in @ 20 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 1, 4000 + 160*1, 0x5678, "\x20" x 160));
+# RTP out @ 30 ms
+($seq) = rcv($sock_b, $port_a, rtpm(96, -1, 4000, 0x5678, "\xaa\x00" x 320));
+# RTP in @ 30 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 2, 4000 + 160*2, 0x5678, "\x20" x 160));
+# RTP out @ 50 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 1, 4000 + 320*1, 0x5678, "\xaa\x00" x 320));
+# no RTP in @ 50 ms, DTX
+# RTP out w/ some silence @ 70 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 2, 4000 + 320*2, 0x5678, "\xaa\x00" x 289 . "\xa9\xff\xaa\x00\xaa\x03\xaa\x00\xa9\xf8\xaa\x00\xaa\x11\xaa\x00\xa9\xe1\xaa\x00\xaa\x36\xaa\x00\xa9\xa8\xaa\x00\xaa\x8b\xaa\x00\xa9\x2e\xaa\x00\xab\x36\xaa\x00\xa8\x3d\xaa\x00\xac\x90\xaa\x00\xa6\x31\xaa\x00\xb0\x0f\xaa\x00\x9e\x7a\xaa\x00\xd5\x00"));
+# no RTP in @ 70 ms, DTX
+# silence RTP out @ 90 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 3, 4000 + 320*3, 0x5678, "\x00\x00\x0b\x86\x00\x00\xf9\xf1\x00\x00\x03\xcf\x00\x00\xfd\x71\x00\x00\x01\xc3\x00\x00\xfe\xca\x00\x00\x00\xd2\x00\x00\xff\x75\x00\x00\x00\x59\x00\x00\xff\xca\x00\x00\x00\x1f\x00\x00\xff\xf0\x00\x00\x00\x08\x00\x00\xff\xfd\x00\x00\x00\x01" . "\x00" x 580));
+# RTP in @ 90 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 3, 4000 + 160*5, 0x5678, "\x90" x 160));
+# remaining silence RTP out @ 110 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 4, 4000 + 320*4, 0x5678, "\x00" x 586 . "\xff\xff\x00\x00\x00\x02\x00\x00\xff\xfc\x00\x00\x00\x07\x00\x00\xff\xf5\x00\x00\x00\x11\x00\x00\xff\xe6\x00\x00\x00\x27\x00\x00\xff\xc8\x00\x00\x00\x52\x00\x00\xff\x86\x00\x00\x00\xc2\x00\x00\xfe\x8f\x00\x00\x05\x60"));
+# RTP in @ 110 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 4, 4000 + 160*6, 0x5678, "\x90" x 160));
+# RTP out @ 130 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 5, 4000 + 320*5, 0x5678, "\x0a\xc0\x0c\x31\x0a\xc0\x09\xfe\x0a\xc0\x0b\x3a\x0a\xc0\x0a\x6e\x0a\xc0\x0a\xf8\x0a\xc0\x0a\x99\x0a\xc0\x0a\xda\x0a\xc0\x0a\xaf\x0a\xc0\x0a\xcb\x0a\xc0\x0a\xb9\x0a\xc0\x0a\xc4\x0a\xc0\x0a\xbe\x0a\xc0\x0a\xc1" . "\x0a\xc0" x 294));
+# lost RTP in packet @ 130, seq +5
+# RTP out w/ some silence @ 150 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 6, 4000 + 320*6, 0x5678, "\x0a\xc0" x 293 . "\x0a\xc1\x0a\xc0\x0a\xbe\x0a\xc0\x0a\xc4\x0a\xc0\x0a\xb9\x0a\xc0\x0a\xcb\x0a\xc0\x0a\xaf\x0a\xc0\x0a\xda\x0a\xc0\x0a\x99\x0a\xc0\x0a\xf8\x0a\xc0\x0a\x6e\x0a\xc0\x0b\x3a\x0a\xc0\x09\xfe\x0a\xc0\x0c\x31\x0a\xc0\x05\x60"));
+# resume RTP in @ 150
+snd($sock_a, $port_b,  rtp(8,  2000 + 6, 4000 + 160*8, 0x5678, "\x90" x 160));
+# sequencer waiting for seq +5, silence RTP out @ 170
+rcv($sock_b, $port_a, rtpm(96, $seq + 7, 4000 + 320*7, 0x5678, "\x00\x00\xfe\x8f\x00\x00\x00\xc2\x00\x00\xff\x86\x00\x00\x00\x52\x00\x00\xff\xc8\x00\x00\x00\x27\x00\x00\xff\xe6\x00\x00\x00\x11\x00\x00\xff\xf5\x00\x00\x00\x07\x00\x00\xff\xfc\x00\x00\x00\x02\x00\x00\xff\xff" . "\x00" x 588));
+# RTP in @ 170
+snd($sock_a, $port_b,  rtp(8,  2000 + 7, 4000 + 160*9, 0x5678, "\xe0" x 160));
+# partial silence RTP out @ 190, switching to decoding
+rcv($sock_b, $port_a, rtpm(96, $seq + 8, 4000 + 320*8, 0x5678, "\x00" x 586 . "\xff\xff\x00\x00\x00\x01\x00\x00\xff\xfe\x00\x00\x00\x03\x00\x00\xff\xfa\x00\x00\x00\x09\x00\x00\xff\xf3\x00\x00\x00\x13\x00\x00\xff\xe4\x00\x00\x00\x29\x00\x00\xff\xc3\x00\x00\x00\x61\x00\x00\xff\x48\x00\x00\x02\xb0"));
+# RTP in @ 190
+snd($sock_a, $port_b,  rtp(8,  2000 + 8, 4000 + 160*10, 0x5678, "\xe0" x 160));
+# RTP out @ 210
+rcv($sock_b, $port_a, rtpm(96, $seq + 9, 4000 + 320*9, 0x5678, "\x05\x60\x06\x18\x05\x60\x04\xff\x05\x60\x05\x9d\x05\x60\x05\x37\x05\x60\x05\x7c\x05\x60\x05\x4d\x05\x60\x05\x6d\x05\x60\x05\x57\x05\x60\x05\x66\x05\x60\x05\x5d\x05\x60\x05\x62\x05\x60\x05\x5f" . "\x05\x60" x 296));
+# RTP in @ 210
+snd($sock_a, $port_b,  rtp(8,  2000 + 9, 4000 + 160*11, 0x5678, "\xe0" x 160));
+# RTP out @ 230
+rcv($sock_b, $port_a, rtpm(96, $seq + 10, 4000 + 320*10, 0x5678, "\x05\x60" x 320));
+# RTP in @ 230
+snd($sock_a, $port_b,  rtp(8,  2000 + 10, 4000 + 160*12, 0x5678, "\xe0" x 160));
+# RTP out @ 250
+rcv($sock_b, $port_a, rtpm(96, $seq + 11, 4000 + 320*11, 0x5678, "\x05\x60" x 320));
+# RTP in @ 250
+snd($sock_a, $port_b,  rtp(8,  2000 + 11, 4000 + 160*13, 0x5678, "\xe0" x 160));
+# RTP out @ 270
+rcv($sock_b, $port_a, rtpm(96, $seq + 12, 4000 + 320*12, 0x5678, "\x05\x60" x 320));
+# RTP in @ 270
+snd($sock_a, $port_b,  rtp(8,  2000 + 12, 4000 + 160*14, 0x5678, "\xe0" x 160));
+# RTP out @ 290
+rcv($sock_b, $port_a, rtpm(96, $seq + 13, 4000 + 320*13, 0x5678, "\x05\x60" x 320));
+# RTP in @ 290
+snd($sock_a, $port_b,  rtp(8,  2000 + 13, 4000 + 160*15, 0x5678, "\xe0" x 160));
+# RTP out @ 310
+rcv($sock_b, $port_a, rtpm(96, $seq + 14, 4000 + 320*14, 0x5678, "\x05\x60" x 320));
+# RTP in @ 310
+snd($sock_a, $port_b,  rtp(8,  2000 + 14, 4000 + 160*16, 0x5678, "\xe0" x 160));
+# RTP out @ 330
+rcv($sock_b, $port_a, rtpm(96, $seq + 15, 4000 + 320*15, 0x5678, "\x05\x60" x 320));
+# RTP in @ 330
+snd($sock_a, $port_b,  rtp(8,  2000 + 15, 4000 + 160*17, 0x5678, "\xe0" x 160));
+# RTP out @ 350
+rcv($sock_b, $port_a, rtpm(96, $seq + 16, 4000 + 320*16, 0x5678, "\x05\x60" x 320));
+
+rtpe_req('delete', 'delete');
+
+
+($sock_a, $sock_b) = new_call([qw(198.51.100.10 5196)], [qw(198.51.100.10 5198)]);
+
+($port_a) = offer('dtx-shift',
+	{ codec => { transcode => ['L16/16000/1'], } }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5196 RTP/AVP 8
+c=IN IP4 198.51.100.10
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8 96
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=rtpmap:96 L16/16000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('dtx-shift', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5198 RTP/AVP 96
+c=IN IP4 198.51.100.10
+a=rtpmap:96 L16/16000
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# start @ 0 ms
+snd($sock_a, $port_b,  rtp(8, 2000, 4000, 0x5678, "\x20" x 160));
+# consumed by resampler @ 10 ms
+# no RTP @ 20 ms
+# DTX @ 30 ms
+($seq) = rcv($sock_b, $port_a, rtpm(96, -1, 4000, 0x5678, "\xaa\x00" x 289 . "\xa9\xff\xaa\x00\xaa\x03\xaa\x00\xa9\xf8\xaa\x00\xaa\x11\xaa\x00\xa9\xe1\xaa\x00\xaa\x36\xaa\x00\xa9\xa8\xaa\x00\xaa\x8b\xaa\x00\xa9\x2e\xaa\x00\xab\x36\xaa\x00\xa8\x3d\xaa\x00\xac\x90\xaa\x00\xa6\x31\xaa\x00\xb0\x0f\xaa\x00\x9e\x7a\xaa\x00\xd5\x00"));
+# late RTP @ 30 ms, discarded
+snd($sock_a, $port_b,  rtp(8,  2000 + 1, 4000 + 160*1, 0x5678, "\x20" x 160));
+# DTX @ 50 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 1, 4000 + 320*1, 0x5678, "\x00\x00\x0b\x86\x00\x00\xf9\xf1\x00\x00\x03\xcf\x00\x00\xfd\x71\x00\x00\x01\xc3\x00\x00\xfe\xca\x00\x00\x00\xd2\x00\x00\xff\x75\x00\x00\x00\x59\x00\x00\xff\xca\x00\x00\x00\x1f\x00\x00\xff\xf0\x00\x00\x00\x08\x00\x00\xff\xfd\x00\x00\x00\x01" . "\x00" x 580));
+# late RTP @ 50 ms, discarded
+snd($sock_a, $port_b,  rtp(8,  2000 + 2, 4000 + 160*2, 0x5678, "\x20" x 160));
+# DTX @ 75 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 2, 4000 + 320*2, 0x5678, "\x00" x 640));
+# late RTP @ 75 ms, discarded
+snd($sock_a, $port_b,  rtp(8,  2000 + 3, 4000 + 160*3, 0x5678, "\x20" x 160));
+# good RTP @ 75 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 4, 4000 + 160*4, 0x5678, "\x20" x 160));
+rcv($sock_b, $port_a, rtpm(96, $seq + 3, 4000 + 320*3, 0x5678, "\x00" x 579 . "\x01\x00\x00\xff\xfd\x00\x00\x00\x08\x00\x00\xff\xf0\x00\x00\x00\x1f\x00\x00\xff\xca\x00\x00\x00\x59\x00\x00\xff\x75\x00\x00\x00\xd2\x00\x00\xfe\xca\x00\x00\x01\xc3\x00\x00\xfd\x71\x00\x00\x03\xcf\x00\x00\xf9\xf1\x00\x00\x0b\x86\x00\x00\xd5\x00"));
+snd($sock_a, $port_b,  rtp(8,  2000 + 5, 4000 + 160*5, 0x5678, "\x20" x 160));
+rcv($sock_b, $port_a, rtpm(96, $seq + 4, 4000 + 320*4, 0x5678, "\xaa\x00\x9e\x7a\xaa\x00\xb0\x0f\xaa\x00\xa6\x31\xaa\x00\xac\x90\xaa\x00\xa8\x3d\xaa\x00\xab\x36\xaa\x00\xa9\x2e\xaa\x00\xaa\x8b\xaa\x00\xa9\xa8\xaa\x00\xaa\x36\xaa\x00\xa9\xe1\xaa\x00\xaa\x11\xaa\x00\xa9\xf8\xaa\x00\xaa\x03\xaa\x00\xa9\xff" . "\xaa\x00" x 290));
+
+rtpe_req('delete', 'delete');
+
+
+($sock_a, $sock_b) = new_call([qw(198.51.100.10 5272)], [qw(198.51.100.10 5274)]);
+
+($port_a) = offer('packet loss w/ high TS',
+	{ codec => { transcode => ['L16/16000/1'], } }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5272 RTP/AVP 8
+c=IN IP4 198.51.100.10
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8 96
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=rtpmap:96 L16/16000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('packet loss w/ high TS', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5274 RTP/AVP 96
+c=IN IP4 198.51.100.10
+a=rtpmap:96 L16/16000
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# start @ 0 ms
+snd($sock_a, $port_b,  rtp(8, 2000, 3800000000, 0x5678, "\x20" x 160));
+# consumed by resampler @ 10 ms
+Time::HiRes::usleep(20000);
+# RTP in @ 20 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 1, 3800000000 + 160*1, 0x5678, "\x20" x 160));
+# RTP out @ 30 ms
+($seq) = rcv($sock_b, $port_a, rtpm(96, -1, 3800000000, 0x5678, "\xaa\x00" x 320));
+# RTP in @ 30 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 2, 3800000000 + 160*2, 0x5678, "\x20" x 160));
+# RTP out @ 50 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 1, 3800000000 + 320*1, 0x5678, "\xaa\x00" x 320));
+# no RTP in @ 50 ms, DTX
+# RTP out w/ some silence @ 70 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 2, 3800000000 + 320*2, 0x5678, "\xaa\x00" x 289 . "\xa9\xff\xaa\x00\xaa\x03\xaa\x00\xa9\xf8\xaa\x00\xaa\x11\xaa\x00\xa9\xe1\xaa\x00\xaa\x36\xaa\x00\xa9\xa8\xaa\x00\xaa\x8b\xaa\x00\xa9\x2e\xaa\x00\xab\x36\xaa\x00\xa8\x3d\xaa\x00\xac\x90\xaa\x00\xa6\x31\xaa\x00\xb0\x0f\xaa\x00\x9e\x7a\xaa\x00\xd5\x00"));
+# no RTP in @ 70 ms, DTX
+# silence RTP out @ 90 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 3, 3800000000 + 320*3, 0x5678, "\x00\x00\x0b\x86\x00\x00\xf9\xf1\x00\x00\x03\xcf\x00\x00\xfd\x71\x00\x00\x01\xc3\x00\x00\xfe\xca\x00\x00\x00\xd2\x00\x00\xff\x75\x00\x00\x00\x59\x00\x00\xff\xca\x00\x00\x00\x1f\x00\x00\xff\xf0\x00\x00\x00\x08\x00\x00\xff\xfd\x00\x00\x00\x01" . "\x00" x 580));
+# RTP in @ 90 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 3, 3800000000 + 160*5, 0x5678, "\x90" x 160));
+# remaining silence RTP out @ 110 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 4, 3800000000 + 320*4, 0x5678, "\x00" x 586 . "\xff\xff\x00\x00\x00\x02\x00\x00\xff\xfc\x00\x00\x00\x07\x00\x00\xff\xf5\x00\x00\x00\x11\x00\x00\xff\xe6\x00\x00\x00\x27\x00\x00\xff\xc8\x00\x00\x00\x52\x00\x00\xff\x86\x00\x00\x00\xc2\x00\x00\xfe\x8f\x00\x00\x05\x60"));
+# RTP in @ 110 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 4, 3800000000 + 160*6, 0x5678, "\x90" x 160));
+# RTP out @ 130 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 5, 3800000000 + 320*5, 0x5678, "\x0a\xc0\x0c\x31\x0a\xc0\x09\xfe\x0a\xc0\x0b\x3a\x0a\xc0\x0a\x6e\x0a\xc0\x0a\xf8\x0a\xc0\x0a\x99\x0a\xc0\x0a\xda\x0a\xc0\x0a\xaf\x0a\xc0\x0a\xcb\x0a\xc0\x0a\xb9\x0a\xc0\x0a\xc4\x0a\xc0\x0a\xbe\x0a\xc0\x0a\xc1" . "\x0a\xc0" x 294));
+# lost RTP in packet @ 130, seq +5
+# RTP out w/ some silence @ 150 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 6, 3800000000 + 320*6, 0x5678, "\x0a\xc0" x 293 . "\x0a\xc1\x0a\xc0\x0a\xbe\x0a\xc0\x0a\xc4\x0a\xc0\x0a\xb9\x0a\xc0\x0a\xcb\x0a\xc0\x0a\xaf\x0a\xc0\x0a\xda\x0a\xc0\x0a\x99\x0a\xc0\x0a\xf8\x0a\xc0\x0a\x6e\x0a\xc0\x0b\x3a\x0a\xc0\x09\xfe\x0a\xc0\x0c\x31\x0a\xc0\x05\x60"));
+# resume RTP in @ 150
+snd($sock_a, $port_b,  rtp(8,  2000 + 6, 3800000000 + 160*8, 0x5678, "\x90" x 160));
+# sequencer waiting for seq +5, silence RTP out @ 170
+rcv($sock_b, $port_a, rtpm(96, $seq + 7, 3800000000 + 320*7, 0x5678, "\x00\x00\xfe\x8f\x00\x00\x00\xc2\x00\x00\xff\x86\x00\x00\x00\x52\x00\x00\xff\xc8\x00\x00\x00\x27\x00\x00\xff\xe6\x00\x00\x00\x11\x00\x00\xff\xf5\x00\x00\x00\x07\x00\x00\xff\xfc\x00\x00\x00\x02\x00\x00\xff\xff" . "\x00" x 588));
+# RTP in @ 170
+snd($sock_a, $port_b,  rtp(8,  2000 + 7, 3800000000 + 160*9, 0x5678, "\xe0" x 160));
+# silence RTP out @ 190, still waiting for seq +5
+rcv($sock_b, $port_a, rtpm(96, $seq + 8, 3800000000 + 320*8, 0x5678, "\x00" x 586 . "\xff\xff\x00\x00\x00\x01\x00\x00\xff\xfe\x00\x00\x00\x03\x00\x00\xff\xfa\x00\x00\x00\x09\x00\x00\xff\xf3\x00\x00\x00\x13\x00\x00\xff\xe4\x00\x00\x00\x29\x00\x00\xff\xc3\x00\x00\x00\x61\x00\x00\xff\x48\x00\x00\x02\xb0"));
+# RTP in @ 190
+snd($sock_a, $port_b,  rtp(8,  2000 + 8, 3800000000 + 160*10, 0x5678, "\xe0" x 160));
+# partial silence RTP out @ 210, switching to decoding
+rcv($sock_b, $port_a, rtpm(96, $seq + 9, 3800000000 + 320*9, 0x5678, "\x05\x60\x06\x18\x05\x60\x04\xff\x05\x60\x05\x9d\x05\x60\x05\x37\x05\x60\x05\x7c\x05\x60\x05\x4d\x05\x60\x05\x6d\x05\x60\x05\x57\x05\x60\x05\x66\x05\x60\x05\x5d\x05\x60\x05\x62\x05\x60\x05\x5f" . "\x05\x60" x 296));
+# RTP in @ 210
+snd($sock_a, $port_b,  rtp(8,  2000 + 9, 3800000000 + 160*11, 0x5678, "\xe0" x 160));
+# RTP out @ 230
+rcv($sock_b, $port_a, rtpm(96, $seq + 10, 3800000000 + 320*10, 0x5678, "\x05\x60" x 320));
+# RTP in @ 230
+snd($sock_a, $port_b,  rtp(8,  2000 + 10, 3800000000 + 160*12, 0x5678, "\xe0" x 160));
+# RTP out @ 250
+rcv($sock_b, $port_a, rtpm(96, $seq + 11, 3800000000 + 320*11, 0x5678, "\x05\x60" x 320));
+# RTP in @ 250
+snd($sock_a, $port_b,  rtp(8,  2000 + 11, 3800000000 + 160*13, 0x5678, "\xe0" x 160));
+# RTP out @ 270
+rcv($sock_b, $port_a, rtpm(96, $seq + 12, 3800000000 + 320*12, 0x5678, "\x05\x60" x 320));
+# RTP in @ 270
+snd($sock_a, $port_b,  rtp(8,  2000 + 12, 3800000000 + 160*14, 0x5678, "\xe0" x 160));
+# RTP out @ 290
+rcv($sock_b, $port_a, rtpm(96, $seq + 13, 3800000000 + 320*13, 0x5678, "\x05\x60" x 320));
+# RTP in @ 290
+snd($sock_a, $port_b,  rtp(8,  2000 + 13, 3800000000 + 160*15, 0x5678, "\xe0" x 160));
+# RTP out @ 310
+rcv($sock_b, $port_a, rtpm(96, $seq + 14, 3800000000 + 320*14, 0x5678, "\x05\x60" x 320));
+# RTP in @ 310
+snd($sock_a, $port_b,  rtp(8,  2000 + 14, 3800000000 + 160*16, 0x5678, "\xe0" x 160));
+# RTP out @ 330
+rcv($sock_b, $port_a, rtpm(96, $seq + 15, 3800000000 + 320*15, 0x5678, "\x05\x60" x 320));
+# RTP in @ 330
+snd($sock_a, $port_b,  rtp(8,  2000 + 15, 3800000000 + 160*17, 0x5678, "\xe0" x 160));
+# RTP out @ 350
+rcv($sock_b, $port_a, rtpm(96, $seq + 16, 3800000000 + 320*16, 0x5678, "\x05\x60" x 320));
+
+rtpe_req('delete', 'delete');
+
+
+($sock_a, $sock_b) = new_call([qw(198.51.100.10 5258)], [qw(198.51.100.10 5260)]);
+
+($port_a) = offer('dtx-shift w/ high TS',
+	{ codec => { transcode => ['L16/16000/1'], } }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5258 RTP/AVP 8
+c=IN IP4 198.51.100.10
+a=sendrecv
+----------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8 96
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=rtpmap:96 L16/16000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+($port_b) = answer('dtx-shift w/ high TS', { }, <<SDP);
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio 5260 RTP/AVP 96
+c=IN IP4 198.51.100.10
+a=rtpmap:96 L16/16000
+a=sendrecv
+--------------------------------------
+v=0
+o=- 1545997027 1 IN IP4 198.51.100.10
+s=tester
+t=0 0
+m=audio PORT RTP/AVP 8
+c=IN IP4 203.0.113.1
+a=rtpmap:8 PCMA/8000
+a=sendrecv
+a=rtcp:PORT
+SDP
+
+# start @ 0 ms
+snd($sock_a, $port_b,  rtp(8, 2000, 3800000000, 0x5678, "\x20" x 160));
+# consumed by resampler @ 10 ms
+# no RTP @ 20 ms
+# DTX @ 30 ms
+($seq) = rcv($sock_b, $port_a, rtpm(96, -1, 3800000000, 0x5678, "\xaa\x00" x 289 . "\xa9\xff\xaa\x00\xaa\x03\xaa\x00\xa9\xf8\xaa\x00\xaa\x11\xaa\x00\xa9\xe1\xaa\x00\xaa\x36\xaa\x00\xa9\xa8\xaa\x00\xaa\x8b\xaa\x00\xa9\x2e\xaa\x00\xab\x36\xaa\x00\xa8\x3d\xaa\x00\xac\x90\xaa\x00\xa6\x31\xaa\x00\xb0\x0f\xaa\x00\x9e\x7a\xaa\x00\xd5\x00"));
+# late RTP @ 30 ms, discarded
+snd($sock_a, $port_b,  rtp(8,  2000 + 1, 3800000000 + 160*1, 0x5678, "\x20" x 160));
+# DTX @ 50 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 1, 3800000000 + 320*1, 0x5678, "\x00\x00\x0b\x86\x00\x00\xf9\xf1\x00\x00\x03\xcf\x00\x00\xfd\x71\x00\x00\x01\xc3\x00\x00\xfe\xca\x00\x00\x00\xd2\x00\x00\xff\x75\x00\x00\x00\x59\x00\x00\xff\xca\x00\x00\x00\x1f\x00\x00\xff\xf0\x00\x00\x00\x08\x00\x00\xff\xfd\x00\x00\x00\x01" . "\x00" x 580));
+# late RTP @ 50 ms, discarded
+snd($sock_a, $port_b,  rtp(8,  2000 + 2, 3800000000 + 160*2, 0x5678, "\x20" x 160));
+# DTX @ 75 ms
+rcv($sock_b, $port_a, rtpm(96, $seq + 2, 3800000000 + 320*2, 0x5678, "\x00" x 640));
+# late RTP @ 75 ms, discarded
+snd($sock_a, $port_b,  rtp(8,  2000 + 3, 3800000000 + 160*3, 0x5678, "\x20" x 160));
+# good RTP @ 75 ms
+snd($sock_a, $port_b,  rtp(8,  2000 + 4, 3800000000 + 160*4, 0x5678, "\x20" x 160));
+rcv($sock_b, $port_a, rtpm(96, $seq + 3, 3800000000 + 320*3, 0x5678, "\x00" x 579 . "\x01\x00\x00\xff\xfd\x00\x00\x00\x08\x00\x00\xff\xf0\x00\x00\x00\x1f\x00\x00\xff\xca\x00\x00\x00\x59\x00\x00\xff\x75\x00\x00\x00\xd2\x00\x00\xfe\xca\x00\x00\x01\xc3\x00\x00\xfd\x71\x00\x00\x03\xcf\x00\x00\xf9\xf1\x00\x00\x0b\x86\x00\x00\xd5\x00"));
+snd($sock_a, $port_b,  rtp(8,  2000 + 5, 3800000000 + 160*5, 0x5678, "\x20" x 160));
+rcv($sock_b, $port_a, rtpm(96, $seq + 4, 3800000000 + 320*4, 0x5678, "\xaa\x00\x9e\x7a\xaa\x00\xb0\x0f\xaa\x00\xa6\x31\xaa\x00\xac\x90\xaa\x00\xa8\x3d\xaa\x00\xab\x36\xaa\x00\xa9\x2e\xaa\x00\xaa\x8b\xaa\x00\xa9\xa8\xaa\x00\xaa\x36\xaa\x00\xa9\xe1\xaa\x00\xaa\x11\xaa\x00\xa9\xf8\xaa\x00\xaa\x03\xaa\x00\xa9\xff" . "\xaa\x00" x 290));
+
+rtpe_req('delete', 'delete');
+
+
+
 ($sock_a, $sock_b) = new_call([qw(198.51.100.10 5128)], [qw(198.51.100.10 5130)]);
 
 ($port_a) = offer('G.711/AMR-WB codec change reverse',