lib/AnyDBM_File.t incorrectly passes even without any dbm
authorAndy Dougherty <doughera@lafayette.edu>
Wed, 3 Apr 2002 16:17:51 +0000 (11:17 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Apr 2002 21:33:54 +0000 (21:33 +0000)
Message-ID: <Pine.SOL.4.10.10204031607030.20955-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@15720

lib/AnyDBM_File.t

index 449c638..b87d26a 100755 (executable)
@@ -7,12 +7,7 @@ BEGIN {
     @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");
-    }
-    else {
-       plan(tests, 12);
-    }
+    plan(tests, 12);
 }
 
 require AnyDBM_File;