TT#14008 more quiet test output

Change-Id: I81c1304568a46ea1c7cc90c489c3f6f4f301e934
3 years ago · 3d18cfff30
parent 5a23422980
commit 3d18cfff30
1 changed files with 2 additions and 1 deletions
--- a/perl/NGCP/Rtpengine/AutoTest.pm
+++ b/perl/NGCP/Rtpengine/AutoTest.pm
@ -200,12 +200,13 @@ sub rcv {
 	alarm(0);
 	my ($hdr_mark, $pt, $seq, $ts, $ssrc, $payload) = unpack('CCnNN a*', $p);
 	if ($payload) {
-		print("rtp recv $pt $seq $ts $ssrc " . unpack('H*', $payload) . "\n");
+		# print("rtp recv $pt $seq $ts $ssrc " . unpack('H*', $payload) . "\n");
 	}
 	if ($cb) {
 		$p = $cb->($hdr_mark, $pt, $seq, $ts, $ssrc, $payload, $p, $cb_arg);
 	}
 	if ($p !~ $match) {
+		print("rtp recv $pt $seq $ts $ssrc " . unpack('H*', $payload) . "\n");
 		print(unpack('H*', $p) . "\n");
 	}
 	like $p, $match, 'received packet matches';