- my $res = [ map [ split /\|/, $_ ], @lines ];
- my $exp = [ map [ $cmd, @$_ ], $fail ? $expected[0] : @expected ];
- is_deeply($res, $exp, "each $cmd did the right thing");
+ my $res = [ map [ split /\|/, $_ ], @lines ];
+ $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' => 11 unless defined $r;
+
+ s/[\r\n]*$// for @$r;
+ for (0 .. 10) {
+ is $r->[$_], $e->[$_], "each $cmd argument $_ for repository $i is ok";
+ }
+ }
+ }