MT#61404 add test for Ia4656770db

Change-Id: I1ed0a25b25e22f901d4811ff9e4ef9d8e087a4ad

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);