exit-non-zero-pass.pl [plain text]
use strict;
sub PASS
{
my ($format, $args) = @_;
if(!defined $args)
{ $args = []; }
printf("PASS \"$format\"\n", @$args);
}
sub FAIL
{
my ($format, $args) = @_;
if(!defined $args)
{ $args = []; }
printf("FAIL \"$format\"\n", @$args);
}
my $pass_string = shift @ARGV;
my $fail_string = shift @ARGV;
open(STDERR, ">/tmp/exit-non-zero.tmp") || die("$!");
if(0 != system(@ARGV))
{
PASS($pass_string);
}
else
{
FAIL($fail_string);
}
close(STDERR) || die("$!");
open(OUT, "</tmp/exit-non-zero.tmp") || die("$!");
while(<OUT>)
{
print $_;
}
close(OUT) || die("$!");
exit 0;