X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=t%2F20-each.t;h=ca87e8a0aa373134f1e3af9a54480adfaaf96ae1;hp=1c582464dcd9a9b566e66a2a0abd95b15b4ebf0a;hb=b70184fed49dd0135e68ab3491475f50521992f3;hpb=e267749b5294c865fa9584c6f15bb0af85e24e30

diff --git a/t/20-each.t b/t/20-each.t
index 1c58246..ca87e8a 100644
--- a/t/20-each.t
+++ b/t/20-each.t
@@ -102,7 +102,7 @@ for my $cmd (qw/commit FAIL/) {
  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 ];