From 4c3cc4a6a2aeaa04051cc922710c27e0e2ffd694 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <zach%zachlipton.com>
Date: Mon, 3 Sep 2001 22:04:09 +0000
Subject: [PATCH] add tests for use strict;

---
 webtools/bugzilla/t/2goodperl.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/webtools/bugzilla/t/2goodperl.t b/webtools/bugzilla/t/2goodperl.t
index da1060f5dbd0..fa6d9a8dc3f5 100644
--- a/webtools/bugzilla/t/2goodperl.t
+++ b/webtools/bugzilla/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");
+	}
 }