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