- my $res = [ map [ split /\|/, $_ ], @lines ];
- my $exp = [ [ $_, qw/^n ^g ^w ^b ^^/ ] ];
- is_deeply($res, $exp, "each $_ did the right thing");
+ is(@lines, 1, "once $cmd visited only one repo");
+ my $r = [ split /\|/, defined $lines[0] ? $lines[0] : '' ];
+ my $e = [ $cmd, qw/^n ^g ^w ^b ^^/ ];
+ is($r->[$_], $e->[$_], "once $cmd argument $_ is ok")
+ for 0 .. 5;