commit 4686d6601e3f88b7c23c2be6f85a13e55d194041
author Gisle Vanem <gvanem@yahoo.no> Fri May 02 05:14:44 2014 -0700
committer Gisle Vanem <gvanem@yahoo.no> Fri May 02 05:14:44 2014 -0700
tree 4173ad8cccd2e7c67ba06de67521a477b083429a
parent 3ce257e42b505e34438537dd0301174784108772

Update TESTonce

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

tests/TESTonce

diff --git a/tests/TESTonce b/tests/TESTonce
index 2397793..6eddbd2 100755
--- a/tests/TESTonce
+++ b/tests/TESTonce
@@ -12,7 +12,12 @@
 $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;