#!./perl
-# $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;
- 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";
- }
- else {
- plan tests => 12;
- }
-
+ require Test::More; import Test::More;
+ plan(tests, 12);
}
require AnyDBM_File;