Re: [perl #18888] $Exporter::Verbose=1 does not work for testing, $Heavy::Verbose...

[p5sagit/p5-mst-13.2.git] / lib / strict.t

diff --git a/lib/strict.t b/lib/strict.t
index 02f191b..37bb4b3 100644 (file)
--- a/lib/strict.t
+++ b/lib/strict.t
@@ -20,7 +20,7 @@ my @prgs = () ;
 
 foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) {
 
-    next if /(~|\.orig|,v)$/;
+    next if -d || /(~|\.orig|,v)$/;
 
     open F, "<$_" or die "Cannot open $_: $!\n" ;
     while (<F>) {
@@ -36,7 +36,7 @@ foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) {
 
 undef $/;
 
-print "1..", scalar @prgs, "\n";
+print "1..", @prgs + 4, "\n";
  
  
 for (@prgs){
@@ -98,3 +98,19 @@ for (@prgs){
     foreach (@temps) 
        { unlink $_ if $_ } 
 }
+
+eval qq(use strict 'garbage');
+print +($@ =~ /^Unknown 'strict' tag\(s\) 'garbage'/)
+       ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@";
+
+eval qq(no strict 'garbage');
+print +($@ =~ /^Unknown 'strict' tag\(s\) 'garbage'/)
+       ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@";
+
+eval qq(use strict qw(foo bar));
+print +($@ =~ /^Unknown 'strict' tag\(s\) 'foo bar'/)
+       ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@";
+
+eval qq(no strict qw(foo bar));
+print +($@ =~ /^Unknown 'strict' tag\(s\) 'foo bar'/)
+       ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@";