summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/2goodperl.t7
1 files changed, 6 insertions, 1 deletions
diff --git a/t/2goodperl.t b/t/2goodperl.t
index da1060f5d..fa6d9a8dc 100644
--- a/t/2goodperl.t
+++ b/t/2goodperl.t
@@ -35,7 +35,7 @@
#Bugzilla Test 2#
####GoodPerl#####
-BEGIN { use Test::More tests => 51; }
+BEGIN { use Test::More tests => 102; }
BEGIN { use lib 't/'; }
BEGIN { use Support::Files; }
@@ -57,6 +57,11 @@ foreach $file (@testitems) {
next;
}
}
+ if ($filecontent !~ /use strict;/) {
+ ok(0,"$file DOES NOT use strict");
+ } else {
+ ok(1,"$files uses strict");
+ }
}