added "kwalitee" test script:
authorTony Cook <tony@develop=help.com>
Mon, 22 May 2006 03:23:11 +0000 (03:23 +0000)
committerTony Cook <tony@develop=help.com>
Mon, 22 May 2006 03:23:11 +0000 (03:23 +0000)
 - currently tests all pl/pm/PL files have use strict
 - added use strict to all pl/pm/PL files with code in them

CountColor/Makefile.PL
DynTest/Makefile.PL
Flines/Makefile.PL
Mandelbrot/Makefile.PL
dynfilt/Makefile.PL
t/Pod/Coverage/Imager.pm
t/t94kwalitee.t [new file with mode: 0644]
t/testtools.pl

index 6692103d1390ad0e996ea3d69e17cf971e9e8263..19e57311f7b604ec37f5d48229c1951237f23fd8 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index 70c871a83cc50d0f38b37fd5438944ebaeab479c..d749d6398301a7c54035b3cfc2f8b4ff9057960d 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index 4eab1b26947faa9fc17cb7314a280ab430f9c073..583a31759d06e0e123c97ee1d4f2f8e43e502161 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index ff5f4bddf15eb92d32d7cf8efff23b536480637d..af306dbbe8f54faae54dab5755d30c93cba0b285 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index 5cb6f040777c87f2babc1ef6b06c9a4ab2dc86e9..dcfc8e1a9c53117927a55bf034b83087650a3926 100644 (file)
@@ -1,12 +1,13 @@
+use strict;
 use Config;
 use ExtUtils::MakeMaker;
-$Verbose = 1;
+my $Verbose = 1;
 
-$lddl=$Config{"lddlflags"};
+my $lddl=$Config{"lddlflags"};
 
-@plugins= qw(dyntest dt2 mandelbrot flines);
+my @plugins= qw(dyntest dt2 mandelbrot flines);
 
-$libstr=join(' ',map { $_.'.$(SO)' } @plugins);
+my $libstr=join(' ',map { $_.'.$(SO)' } @plugins);
 
 #print $libstr,"\n";
 #print $objstr,"\n";
index fe796490b3cd8adf240fdfdbc97114cbae16b0a7..212d026bfd8b93b0b0bd19fdc8a4aed1a8a19b1e 100644 (file)
@@ -1,4 +1,5 @@
 package Pod::Coverage::Imager;
+use strict;
 use base 'Pod::Coverage';
 
 sub _get_pods {
diff --git a/t/t94kwalitee.t b/t/t94kwalitee.t
new file mode 100644 (file)
index 0000000..f77c635
--- /dev/null
@@ -0,0 +1,28 @@
+#!perl -w
+# this is intended for various kwalitee tests
+use lib 't';
+use strict;
+use Test::More;
+use ExtUtils::Manifest qw(maniread);
+
+my $manifest = maniread;
+
+# work up counts first
+
+my @pl_files = grep /\.(p[lm]|PL)$/, keys %$manifest;
+
+plan tests => scalar(@pl_files);
+
+for my $filename (@pl_files) {
+  open PL, "< $filename"
+    or die "Cannot open $filename: $!";
+  my $found_strict;
+  while (<PL>) {
+    if (/^use strict;/) {
+      ++$found_strict;
+      last;
+    }
+  }
+  close PL;
+  ok($found_strict, "file $filename has use strict");
+}
index df67ad3a78d2615cb6edea7f71203e7d89726590..094a42e85944286580f9ce2deb67b64f76d5d556 100644 (file)
@@ -1,4 +1,5 @@
 # this doesn't need a new namespace - I hope
+use strict;
 use Imager qw(:all);
 use vars qw($TESTNUM);
 use Carp 'confess';