diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2002-04-03 11:18:47 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-03 20:25:55 +0000 |
| commit | be6bd645f6be4d28e5d344c51889c6b67bdf5a74 (patch) | |
| tree | bd408e012fd376856b535a78b237f58679ffb2c8 /lib/AnyDBM_File.t | |
| parent | 384e87d19f97455a7bad80b0a0403c35bbdf9b76 (diff) | |
| download | perl-be6bd645f6be4d28e5d344c51889c6b67bdf5a74.tar.gz | |
Set @INC earlier
Message-ID: <Pine.SOL.4.10.10204031618150.20955-100000@maxwell.phys.lafayette.edu>
p4raw-id: //depot/perl@15717
Diffstat (limited to 'lib/AnyDBM_File.t')
| -rwxr-xr-x | lib/AnyDBM_File.t | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t index 7bb1e49458..449c638ad1 100755 --- a/lib/AnyDBM_File.t +++ b/lib/AnyDBM_File.t @@ -2,19 +2,17 @@ # $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $ -use Test::More; - BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require Config; import Config; + require Test::More; import Test::More; if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){ - plan skip_all => "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n"; + plan(skip_all, "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n"); } else { - plan tests => 12; + plan(tests, 12); } - } require AnyDBM_File; |