diff options
author | zach%zachlipton.com <> | 2002-05-09 08:49:31 +0200 |
---|---|---|
committer | zach%zachlipton.com <> | 2002-05-09 08:49:31 +0200 |
commit | ccf9d404cfe99346af2f08dbbda44a3a53912b90 (patch) | |
tree | e8d3de7e241b998d8dc5498852873938632316b9 /t/002goodperl.t | |
parent | 1d10fae35ea91b2e038cc8d3942a1860415e5dde (diff) | |
download | bugzilla-ccf9d404cfe99346af2f08dbbda44a3a53912b90.tar.gz bugzilla-ccf9d404cfe99346af2f08dbbda44a3a53912b90.tar.xz |
Fix for bug 143124, Fix warning messages about *::TESTOUT and clean up
test code. Patch makes the tests much better now.
r=zach x2
Diffstat (limited to 't/002goodperl.t')
-rw-r--r-- | t/002goodperl.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index 09a5f0324..d3beec5ef 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -38,13 +38,14 @@ #Bugzilla Test 2# ####GoodPerl##### -BEGIN { use lib 't/'; } -BEGIN { use Support::Files; } -BEGIN { $tests = @Support::Files::testitems * 2; } -BEGIN { use Test::More tests => $tests; } - use strict; +use lib 't'; + +use Support::Files; + +use Test::More tests => (scalar(@Support::Files::testitems) * 2); + my @testitems = @Support::Files::testitems; # get the files to test. foreach my $file (@testitems) { |