view release on metacpan or  search on metacpan

t/002-fixtures.t  view on Meta::CPAN

    #warn Dumper $report;
    delete $report->{files}->{$file}->{phases};

    is_deeply( $got, $expected, "Got what we expected from the report for $file" );

    $report_fname
        and unlink $report_fname;
}

for my $file (glob "$FIXTURES/*.pl") {
    next if $file eq "$FIXTURES/cover-05.pl" && $] lt '5.018000';
    test_fixture($file);
}

done_testing;