policy => $policy,
);
isnt($ar, undef, "each $cmd has a defined object");
- my $exit = $ar->run;
+ my $exit;
my $fail = $cmd eq 'FAIL' ? 1 : 0;
+ if ($fail) {
+ ($exit, undef) = $ar->run;
+ } else {
+ $exit = $ar->run;
+ }
is($exit, $fail, "each $cmd returned $fail");
my @lines = split /\n/, do { local $/; <$fh> };
my $res = [ map [ split /\|/, $_ ], @lines ];