diff options
| -rw-r--r-- | t/2goodperl.t | 7 |
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"); + } } |