[bse.git] / t / 900-kwalitee / 010-strict-warn.t

#!perl -w
use strict;
use File::Find;
use Test::More;

my @files;
open MANIFEST, "< MANIFEST" or die "Cannot open MANIFEST";
while (<MANIFEST>) {
  chomp;
  next if /^\s*\#/;
  s/\s+.*//;
  push @files, $_ if /\.(pm|t|pl)$/;
}
close MANIFEST;
my @scripts = grep /\.(pl|t)$/, @files;
plan tests => scalar(@files) + scalar(@scripts);
for my $file (@files) {
  open SRC, "< $file" or die "Cannot open $file: $!";
  my $data = do { local $/; <SRC> };
  close SRC;
  ok($data =~ /^use\s+strict/m, "use strict in $file");
  if ($file =~ /\.(pl|t)$/) {
    ok($data =~ /#!.*perl.*-w|use warnings;/m, "-w or use warnings in $file");
  }
}
Commit	Line	Data
15fb10f2 TC	1	#!perl -w
15fb10f2 TC	2	use strict;
15fb10f2	3	use File::Find;
5bbf7309	4	use Test::More;
15fb10f2 TC	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;
5bbf7309	16	plan tests => scalar(@files) + scalar(@scripts);
15fb10f2 TC	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)$/) {
0da5d199	23	ok($data =~ /#!.perl.-w\|use warnings;/m, "-w or use warnings in $file");
15fb10f2 TC	24	}
15fb10f2 TC	25	}