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 6692103..19e5731 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index 70c871a..d749d63 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index 4eab1b2..583a317 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index ff5f4bd..af306db 100644 (file)
@@ -1,3 +1,5 @@
+#!perl -w
+use strict;
 use ExtUtils::MakeMaker;
 
 my %opts = 
index 5cb6f04..dcfc8e1 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 fe79649..212d026 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 df67ad3..094a42e 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';