From 7a58f4eb29afea429a1f64f996aa561e7e39c90d Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 25 Feb 2025 14:01:41 -0400
Subject: [PATCH] MT#61404 add test for Ia4656770db

Change-Id: I1ed0a25b25e22f901d4811ff9e4ef9d8e087a4ad
---
 t/auto-daemon-tests-t38.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/auto-daemon-tests-t38.pl b/t/auto-daemon-tests-t38.pl
index 63772290a..a740d6f4b 100755
--- a/t/auto-daemon-tests-t38.pl
+++ b/t/auto-daemon-tests-t38.pl
@@ -85,6 +85,9 @@ sub t38_gw_test {
 		# it will also have generated a block of PCM
 		if ($seq == -1) {
 			($seq, $ts, $ssrc, $buf) = rcv($pcm_sock, $pcm_port, rtpmre(8 | 0x80, -1, -1, -1, '(' . ("." x 160) . ')'));
+			if ($opts{seq}) {
+				is($seq, $opts{seq}, 'initial sequence number');
+			}
 		}
 		else {
 			($buf) = rcv($pcm_sock, $pcm_port, rtpmre(8, $seq += 1, $ts += 160, $ssrc, '(' . ("." x 160) . ')'));
@@ -303,6 +306,12 @@ a=sendrecv
 a=rtcp:PORT
 SDP
 
+snd($sock_a, $port_b,  rtp(8, 1000, 3000, 0x1234, "\x00" x 160));
+rcv($sock_b, $port_a, rtpm(8, 1000, 3000, 0x1234, "\x00" x 160));
+
+snd($sock_b, $port_a,  rtp(8, 4000, 6000, 0x2bc3, "\x00" x 160));
+rcv($sock_a, $port_b, rtpm(8, 4000, 6000, 0x2bc3, "\x00" x 160));
+
 ($port_a) = offer('T.38 after re-invite', { 'T.38' => [ 'force' ], ICE => 'remove',
 	 }, <<SDP);
 v=0
@@ -358,7 +367,7 @@ SDP
 t38_gw_test('T.38 after re-invite',
 	'./spandsp_send_fax_pcm test.tif',
 	'./spandsp_recv_fax_t38 out.tif',
-	reverse => 1);
+	reverse => 1, seq => 4001);