add tests for use strict;

diff --git a/t/2goodperl.t b/t/2goodperl.t
index da1060f5dbd0baeb9968c2b1830842cb70c075cc..fa6d9a8dc3f520a0d162b461202b86e15fb76a10 100644 (file)
--- 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");
+       }
 }