From 3d18cfff300feefeeb26f1fe9e53027e3da727c2 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 22 Mar 2022 14:03:49 -0400
Subject: [PATCH] TT#14008 more quiet test output

Change-Id: I81c1304568a46ea1c7cc90c489c3f6f4f301e934
---
 perl/NGCP/Rtpengine/AutoTest.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/NGCP/Rtpengine/AutoTest.pm b/perl/NGCP/Rtpengine/AutoTest.pm
index ce3551d63..19aee4451 100644
--- 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';