view release on metacpan or  search on metacpan

t/05-integration.t  view on Meta::CPAN

    my $filename = "$name.pl";

    # Write script with shebang
    open my $fh, '>', $filename or die "Cannot write $filename: $!";
    print $fh "#!/usr/bin/perl\n";   # <-- important shebang
    print $fh $code;
    close $fh;

    # Make executable
    chmod 0755, $filename or die "Cannot chmod +x $filename: $!";

    # Run directly
    my $output = `./$filename @user_args 2>&1`;
    my $exit   = $? >> 8;

    return ($output, $exit);
}

sub script_ok {
    my ($desc, $code, $expected_output, $expected_exit, @user_args) = @_;