6 use File::Temp qw( tempdir tempfile );
8 all_perl_files_ok("$Bin/../lib");
10 eol_unix_ok( $0, "$0 is unix eol" );
12 my $file1 = make_file1();
13 eol_unix_ok( $file1 );
15 my $file2 = make_file2();
16 eol_unix_ok( $file2 );
18 my $file3 = make_file3();
19 eol_unix_ok( $file3 );
21 my $file4 = make_file3();
22 eol_unix_ok( $file3, { trailing_whitespace => 1 });
24 unlink foreach ( $file1, $file2, $file3, $file4 );
27 my ($fh, $filename) = tempfile();
35 This test script doesn't do anything.
41 print "Hello $name!\n";
49 my ($fh, $filename) = tempfile();
57 This test script doesn't do anything.
63 print "Hello $name!\n";
71 my ($fh, $filename) = tempfile();
80 my $self = bless {}, $class;