add tests for use strict;

93ec6654 · zach%zachlipton.com · 6df1f2a6 · 93ec6654
Commit 93ec6654 authored Sep 04, 2001 by zach%zachlipton.com
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

2goodperl.t t/2goodperl.t +6 -1

No files found.
--- 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");
+	}
 }