t/900-kwalitee/010-strict-warn.t

   1 #!perl -w
   2 use strict;
   3 use File::Find;
   4 use Test::More;
   5
   6 my @files;
   7 open MANIFEST, "< MANIFEST" or die "Cannot open MANIFEST";
   8 while (<MANIFEST>) {
   9   chomp;
  10   next if /^\s*\#/;
  11   s/\s+.*//;
  12   push @files, $_ if /\.(pm|t|pl)$/;
  13 }
  14 close MANIFEST;
  15 my @scripts = grep /\.(pl|t)$/, @files;
  16 plan tests => scalar(@files) + scalar(@scripts);
  17 for my $file (@files) {
  18   open SRC, "< $file" or die "Cannot open $file: $!";
  19   my $data = do { local $/; <SRC> };
  20   close SRC;
  21   ok($data =~ /^use\s+strict/m, "use strict in $file");
  22   if ($file =~ /\.(pl|t)$/) {
  23     ok($data =~ /#!.*perl.*-w|use warnings;/m, "-w or use warnings in $file");
  24   }
  25 }