This commit is contained in:
zach%zachlipton.com 2001-09-03 22:04:09 +00:00
Родитель 995690cb67
Коммит 4c3cc4a6a2
1 изменённых файлов: 6 добавлений и 1 удалений

Просмотреть файл

@ -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");
}
}