5a56be0f90adad50f355ed798e090b3d7ee63d44
[bse.git] / t / 900-kwalitee / 010-strict-warn.t
1 #!perl -w
2 use strict;
3 use BSE::Test qw(ok);
4 use File::Find;
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 print "1..",scalar(@files) + scalar(@scripts),"\n";
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 }