view release on metacpan or  search on metacpan

t/50-openbin.t  view on Meta::CPAN

        Test::More->import('no_plan');
        Test::More::diag("Generating exit_1 test script in t/resource/helpers...");
        my ($in, $out);
        open($in, 't/resource/helpers/exit_1.tmpl') && do {
            open($out, '>', 't/resource/helpers/exit_1') && do {
                local $/ = undef;
                my $contents = <$in>;
                $contents =~ s/^\@PERL\@/#!$^X/sg;
                print { $out } $contents;
                close($out);
                chmod(0700, 't/resource/helpers/exit_1');
            };
            close($in);
        };
    } else {
        Test::More->import('skip_all' => "Couldn't execute this perl!");
    }
};

# XXX this might change as the test fills out and configuration needs change
#     for each assertion.