my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line 4/m, 'windows EOL found in tmp file 1' );
unlink $outfile;
- system("rm -rf $dir");
}
{
my $dir = make_bad_file_2();
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line \d+/m, 'windows EOL found in tmp file2 ' );
unlink $outfile;
- system("rm -rf $dir");
}
{
my ($dir, $file) = make_bad_file_3();
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line \d+/m, 'windows EOL found in tmp file 3' );
unlink $outfile;
- system("rm -rf $dir");
}
{
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line \d+/m, 'windows EOL found in tmp file 4' );
unlink $outfile;
- system("rm -rf $dir");
}
sub make_bad_file_1 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
print $fh <<"DUMMY";
#!perl
}
sub make_bad_file_2 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
print $fh <<"DUMMY";
#!perl
}
sub make_bad_file_3 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' );
print $fh <<"DUMMY";
use strict;\r
}
sub make_bad_file_4 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
print $fh <<"DUMMY";
#!perl