view release on metacpan or  search on metacpan

alienfile  view on Meta::CPAN

          ( $^O eq 'MSWin32' ) ? 'parasail_stats.exe' : 'parasail_stats';
        $stats_exec = path( $binary_dest_directory, $stats_exec );
        unlink($stats_exec) if -e $stats_exec;
    };

    test sub {
        my ($build) = @_;
        my $runTests_dir = path( $build->{install_prop}->{extract}, 'tests' );

        my @test_logs = map { path $runTests_dir, $_ }
          qw(test_basic.log test_isa.log test_verify.log);
        for (@test_logs) {
            open my $fh, '<', $_
              or croak("Can't open test log file $_\n");
            ## localize record separator to undef and then slurp all
            ## file contents
            my $test_output = do { local $/; <$fh> };
            if ( $test_output !~ /exit status: 0/m ) {
                ( $_ = $_ =~ s/\.log//r );
                croak("parasail run time test suite : $_ failed. Exiting now");
            }