A little hack to test all contexts for App::Rgit::Command::Each::run

diff --git a/t/20-each.t b/t/20-each.t
index dfc139b629bd2cce5e538113b35d5b5c603aa988..55e70855effbfc245c02258fa2632b0e77d06126 100644 (file)
--- a/t/20-each.t
+++ b/t/20-each.t
@@ -103,8 +103,13 @@ sub try {
   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 ];