From: Gisle Vanem <gvanem@yahoo.no>
Date: Fri, 2 May 2014 12:14:44 +0000 (-0700)
Subject: Update TESTonce
X-Git-Tag: tcpdump-4.6.0~43^2^2~4
X-Git-Url: https://git.tcpdump.org/tcpdump/commitdiff_plain/4686d6601e3f88b7c23c2be6f85a13e55d194041

Update TESTonce

Adapt script for Strawberry Perl and possibly other Win32 Perls. The program is windump.exe on Windows.
---

diff --git a/tests/TESTonce b/tests/TESTonce
index 23977935..6eddbd25 100755
--- a/tests/TESTonce
+++ b/tests/TESTonce
@@ -12,7 +12,12 @@ $input=$ARGV[1];
 $output=$ARGV[2];
 $options=$ARGV[3];
 
-$r = system "../tcpdump 2>/dev/null -n -r $input $options | tee NEW/$output | diff -w $output - >DIFF/$output.diff";
+if ($^O eq 'MSWin32') {
+  $r = system "..\\windump -n -r $input $options 2>NUL | tee NEW/$output | diff -w $output - >DIFF/$output.diff";
+ }
+else {
+  $r = system "../tcpdump 2>/dev/null -n -r $input $options | tee NEW/$output | diff -w $output - >DIFF/$output.diff";
+}
 
 if($r == 0) {
   printf "    %-30s: passed\n", $name;