]> git.vpit.fr Git - perl/modules/rgit.git/blobdiff - t/20-each.t
Check the value returned by git correctly. POSIX is now a dependency
[perl/modules/rgit.git] / t / 20-each.t
index 1c582464dcd9a9b566e66a2a0abd95b15b4ebf0a..ca87e8a0aa373134f1e3af9a54480adfaaf96ae1 100644 (file)
@@ -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 ];