/usr/share/doc/biosquid-dev/examples/Testsuite/testsuite.pm is in biosquid-dev 1.9g+cvs20050121-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | package testsuite;
$status = 0;
$ntmp = 0;
$tmpbase = "sqd_test_out";
sub description {
my ($name, $desc) = @_;
$| = 1;
printf " %-20s %-35s ... ", $name, $desc;
1;
}
sub getconfig {
my ($cfgprog, $flag) = @_;
my $output;
$output = `./$cfgprog`;
if ($output =~ /$flag\s+false/) { return 0; }
elsif ($output =~ /$flag\s+true/) { return 1; }
else { die "$flag not found in output of $cfgprog"; }
1;
}
sub done {
unlink(<$tmpbase.*>);
if ($status == 0) { print "ok.\n"; exit(0); }
else { print "FAILED\n"; exit($status); }
1;
}
sub tempname {
my $tmp;
$tmp = "$tmpbase.$ntmp";
$ntmp++;
return $tmp;
}
sub run {
my ($cmd) = @_;
system("$cmd 2>/dev/null"); # stderr directed away
if ($? != 0) { $status = 1; &done(); }
1;
}
1;
|