7 my ($format, $args) = @_;
10 printf("PASS \"$format\"\n", @
$args);
15 my ($format, $args) = @_;
18 printf("FAIL \"$format\"\n", @
$args);
21 my $pass_string = shift @ARGV;
22 my $fail_string = shift @ARGV;
24 # redirect stderr to stdout
25 open(STDERR
, ">/tmp/exit-zero-pass.tmp") || die("$!");
26 if(0 == system(@ARGV))
34 close(STDERR
) || die("$!");
35 open(OUT
, "</tmp/exit-zero-pass.tmp") || die("$!");
40 close(OUT
) || die("$!");
41 unlink "/tmp/exit-zero-pass.tmp";