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