make test cases a bit quieter

diff --git a/tests/TESTonce b/tests/TESTonce
index 40d544b04f4408d162a9b83b21242befb40a87ca..c73f2522b8a0f4d8d91fe61119c7ee28a97f8b3e 100755 (executable)
--- a/tests/TESTonce
+++ b/tests/TESTonce
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+$debug = 0;
 system("mkdir -p NEW DIFF");
 
 if(@ARGV == 1) {
@@ -28,8 +29,8 @@ if(@ARGV == 1) {
   exit 20;
 }
 
-print "Running $name. \n";
-print "   Input: $input, OUTPUT: $output, OPTIONS: $options\n";
+print "Running $name. \n" if $debug;
+print "   Input: $input, OUTPUT: $output, OPTIONS: $options\n" if $debug;
 
 if (! -f $input) {
   ($puu = $input) =~ s/\.pcap/\.puu/;
@@ -40,7 +41,7 @@ if (! -f $input) {
 }
 
 print "    ";
-exec("../tcpdump -n -r $input $options | tee NEW/$output | diff -w - $output >DIFF/$output.diff");
+exec("../tcpdump 2>/dev/null -n -r $input $options | tee NEW/$output | diff -w - $output >DIFF/$output.diff");
 @cores = glob("core*");
 exit 10 if (@cores > 0);
 exit 0;