t/maint/unix-newlines.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More;;
   6
   7 use File::Find;
   8 use File::Slurp qw< slurp >;
   9 use Socket qw< $CRLF $LF >;
  10
  11 my $ext = qr/(?: t | pm | sql | js | php | inc | xml )/x;
  12
  13 my @files;
  14 find( sub { push @files, $File::Find::name if -f && /\. $ext $/x }, '.' );
  15
  16 plan tests => scalar @files;
  17
  18 for my $file (@files) {
  19         my $cont = slurp $file;
  20         if ( $cont and $cont =~ $CRLF ) {
  21                 pass "$file contains windows newlines";
  22         } else {
  23                 fail "$file is made of unix newlines and win";
  24         }
  25 }
  26
  27
  28