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");
+	}
 }