- my $exp = [ map [ $cmd, @$_ ], @expected ];
- is_deeply($res, $exp, "each $cmd did the right thing");
+ $exp = [ map [ $cmd, @$_ ], @$exp ];
+ for my $i (0 .. $#$exp) {
+ my $e = $exp->[$i];
+ my $r = shift @$res;
+ isnt($r, undef, "each $cmd visited repository $i");
+SKIP:
+ {
+ skip 'didn\'t visited that repo' => 10 unless defined $r;
+ is($r->[$_], $e->[$_], "each $cmd argument $_ for repository $i is ok")
+ for 0 .. 9;
+ }
+ }