t/11-all.t

   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
  21 my $file4 = make_file3();
  22 eol_unix_ok( $file3, { trailing_whitespace => 1 });
  23
  24 unlink foreach ( $file1, $file2, $file3, $file4 );
  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