diff --git a/t/auto-daemon-tests-measure-rtp.pl b/t/auto-daemon-tests-measure-rtp.pl index e43f9049f..15f7bde3a 100755 --- a/t/auto-daemon-tests-measure-rtp.pl +++ b/t/auto-daemon-tests-measure-rtp.pl @@ -26,6 +26,87 @@ my ($sock_a, $sock_b, $sock_c, $sock_d, $port_a, $port_b, $ssrc, $ssrc_b, $resp, +($sock_a, $sock_ax, $sock_b, $sock_bx) = new_call( + [qw(198.51.100.1 7184)], + [qw(198.51.100.1 7185)], + [qw(198.51.100.3 7186)], + [qw(198.51.100.3 7187)], +); + +($port_a, $port_ax) = offer('unidirectional', { }, < 0 } ); +#print Dumper($resp); +#print Dumper($resp->{SSRC}); +is($resp->{SSRC}{0x1234}{bytes}, 172, "0x1234 byte count"); +is($resp->{SSRC}{0x6543}{bytes}, 172, "0x6543 byte count"); +is($resp->{SSRC}{0x6543}{'highest MOS'}{MOS}, '43', "0x6543 MOS"); +#print Dumper($resp->{tags}{ft()}{medias}[0]{'egress SSRCs'}); +is($resp->{tags}{ft()}{medias}[0]{'egress SSRCs'}[0]{SSRC}, 0x6543, 'egress SSRC'); +#print Dumper($resp->{tags}{ft()}{medias}[0]{'ingress SSRCs'}); +#print Dumper($resp->{tags}{ft()}{medias}[0]{streams}[0]{SSRC}); +#print Dumper($resp->{tags}{tt()}{medias}[0]{'egress SSRCs'}); +#print Dumper($resp->{tags}{tt()}{medias}[0]{'ingress SSRCs'}); +#print Dumper($resp->{tags}{tt()}{medias}[0]{streams}[0]{SSRC}); +is($resp->{tags}{tt()}{medias}[0]{'ingress SSRCs'}[0]{SSRC}, 0x6543, 'ingress SSRC'); +is($resp->{tags}{tt()}{medias}[0]{'ingress SSRCs'}[0]{'highest MOS'}{MOS}, '43', 'ingress SSRC MOS'); +is($resp->{totals}{RTP}{packets}, 2, 'RTP packet count'); +is($resp->{totals}{RTP}{bytes}, 344, 'RTP octet count'); +is($resp->{totals}{RTCP}{packets}, 1, 'RTCP packet count'); +is($resp->{totals}{RTCP}{bytes}, 52, 'RTCP octet count'); + + + + ($sock_a, $sock_ax, $sock_b, $sock_bx) = new_call( [qw(198.51.100.1 7160)], [qw(198.51.100.1 7161)],