diff --git a/t/auto-daemon-tests.pl b/t/auto-daemon-tests.pl index 7475f8116..036c84b39 100755 --- a/t/auto-daemon-tests.pl +++ b/t/auto-daemon-tests.pl @@ -7327,6 +7327,8 @@ rcv($sock_a, $port_b, rtpm(8, 2000, 4000, 0x3210, "\x00" x 160)); # SR LEN SSRC NTP1 NTP2 RTP PACKETS OCTETS snd($sock_ax, $port_bx, "\x80\xc8\x00\x06\x00\x00\x12\x34\x00\x00\x56\x78\x9a\xbc\x00\x00\x00\x00\x0b\xb8\x00\x00\x00\x01\x00\x00\x00\xac"); +Time::HiRes::usleep(50000); # 50 ms, wait for RTCP to be consumed + $resp = rtpe_req('play media', 'media player', { 'from-tag' => ft(), blob => $wav_file }); is $resp->{duration}, 100, 'media duration'; @@ -7335,7 +7337,7 @@ is $resp->{duration}, 100, 'media duration'; @ret1 = rcv($sock_ax, $port_bx, qr/^\x81\xc8\x00\x0c(.{4})(.{4})(.{4})(.{4})\x00\x00\x00\x01\x00\x00\x00\xac\x00\x00\x12\x34\x00\x00\x00\x00\x00\x00\x03\xe8\x00\x00\x00\x00\x56\x78\x9a\xbc(.{4})\x81\xca\x00\x05(.{4})\x01\x0c([0-9a-f]{12})\x00\x00$/s); is $ret1[0], $ssrc, 'SSRC matches'; is $ret1[3], $ts, 'TS matches'; -cmp_ok $ret1[4], '<', 1000, 'DSLR ok'; +cmp_ok $ret1[4], '<', 6553, 'DSLR ok'; is $ret1[5], $ssrc, 'SSRC matches'; rtpe_req('delete', "delete", { 'from-tag' => ft() });