view release on metacpan or  search on metacpan

t/60_hashed_color.t  view on Meta::CPAN

plan tests => $tests;

my @cmd = ($^X => qw(t/hi test\\d+ _hashed_ test: ocean));

my $in;
   $in .= "test: test$_\n" for 1 .. $tests;
   $in .= "test: test3 test4 test1 test2\n";

run \@cmd, \$in, \my $out, sub { die "@_" };

my @lines = split m/\s*[\x0d\x0a]\s*/, $out;

my @t;
for( 1 .. $tests ) {
    my $t = shift @lines;
    $t =~ s/.*test:\S*\s//;
    push @t, $t;
}

for( @t ) {
    ok( $lines[0] =~ m/\Q$_\E/ );