Commit | Line | Data |
a83ae797 |
1 | use strict; |
2 | |
3 | use Test::EOL; |
4 | use FindBin qw/$Bin/; |
5 | |
6 | use File::Temp qw( tempdir tempfile ); |
7 | |
8 | all_perl_files_ok("$Bin/../lib"); |
9 | |
10 | eol_unix_ok( $0, "$0 is unix eol" ); |
11 | |
12 | my $file1 = make_file1(); |
13 | eol_unix_ok( $file1 ); |
14 | |
15 | my $file2 = make_file2(); |
16 | eol_unix_ok( $file2 ); |
17 | |
18 | my $file3 = make_file3(); |
19 | eol_unix_ok( $file3 ); |
20 | |
91613276 |
21 | my $file4 = make_file3(); |
22 | eol_unix_ok( $file3, { trailing_whitespace => 1 }); |
23 | |
24 | unlink foreach ( $file1, $file2, $file3, $file4 ); |
a83ae797 |
25 | |
26 | sub make_file1 { |
27 | my ($fh, $filename) = tempfile(); |
28 | print $fh <<'DUMMY'; |
29 | #!/usr/bin/perl -w |
30 | |
31 | =pod |
32 | |
33 | =head1 NAME |
34 | |
35 | This test script doesn't do anything. |
36 | |
37 | =cut |
38 | |
39 | sub main { |
40 | my ($name) = @_; |
41 | print "Hello $name!\n"; |
42 | } |
43 | |
44 | DUMMY |
45 | return $filename; |
46 | } |
47 | |
48 | sub make_file2 { |
49 | my ($fh, $filename) = tempfile(); |
50 | print $fh <<'DUMMY'; |
51 | #!/usr/bin/perl -w |
52 | |
53 | =pod |
54 | |
55 | =head1 NAME |
56 | |
57 | This test script doesn't do anything. |
58 | |
59 | =cut |
60 | |
61 | sub main { |
62 | my ($name) = @_; |
63 | print "Hello $name!\n"; |
64 | } |
65 | |
66 | DUMMY |
67 | return $filename; |
68 | } |
69 | |
70 | sub make_file3 { |
71 | my ($fh, $filename) = tempfile(); |
72 | print $fh <<'DUMMY'; |
73 | package My::Test; |
74 | |
75 | use strict; |
76 | use warnings; |
77 | |
78 | sub new { |
79 | my ($class) = @_; |
80 | my $self = bless {}, $class; |
81 | return $self; |
82 | } |
83 | |
84 | 1; |
85 | __END__ |
86 | DUMMY |
87 | return $filename; |
88 | } |
89 | |