The Tcpdump Group git mirrors - tcpdump/blob - tests/TESTonce

   1 #!/usr/bin/env perl
   2
   3 $TCPDUMP = "../tcpdump" if (!($TCPDUMP = $ENV{TCPDUMP_BIN}));
   4
   5 use File::Basename;
   6 use POSIX qw( WEXITSTATUS WIFEXITED);
   7 use lib '.';
   8 use testfuncs;
   9
  10 system("mkdir -p tests/NEW tests/DIFF");
  11
  12 if(@ARGV != 4) {
  13   print "Usage: TESTonce name input output options\n";
  14   exit 20;
  15 }
  16
  17 $r = runtest($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]);
  18 exit $r >> 8;
  19