]> The Tcpdump Group git mirrors - tcpdump/blobdiff - tests/TESTonce
Add changes in 4.2.1.
[tcpdump] / tests / TESTonce
index 40d544b04f4408d162a9b83b21242befb40a87ca..c5bcb34b07737ecc0f7a20c843831ed343112ad9 100755 (executable)
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+$debug = 0;
 system("mkdir -p NEW DIFF");
 
 if(@ARGV == 1) {
@@ -28,19 +29,11 @@ if(@ARGV == 1) {
   exit 20;
 }
 
-print "Running $name. \n";
-print "   Input: $input, OUTPUT: $output, OPTIONS: $options\n";
-
-if (! -f $input) {
-  ($puu = $input) =~ s/\.pcap/\.puu/;
-  if( -f $puu) {
-    print "Uudecoding $puu to make $input\n";
-    system("uudecode $puu");
-  }
-}
+print "Running $name. \n" if $debug;
+print "   Input: $input, OUTPUT: $output, OPTIONS: $options\n" if $debug;
 
 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;