summaryrefslogtreecommitdiffstats
path: root/t/2goodperl.t
diff options
context:
space:
mode:
authorzach%zachlipton.com <>2001-09-04 07:04:09 +0200
committerzach%zachlipton.com <>2001-09-04 07:04:09 +0200
commit93ec66548fc0cdec1c2b65f92add69884e9ec9cd (patch)
treed0900f531c9784dc1004677dde3885474267917b /t/2goodperl.t
parent6df1f2a64b8b086aee3eb4b55ac5048ef76e2341 (diff)
downloadbugzilla-93ec66548fc0cdec1c2b65f92add69884e9ec9cd.tar.gz
bugzilla-93ec66548fc0cdec1c2b65f92add69884e9ec9cd.tar.xz
add tests for use strict;
Diffstat (limited to 't/2goodperl.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");
+ }
}