[svn:dbi] r13998 - dbi/trunk/t

Author: REHSACK
Date: Tue May 18 11:44:26 2010
New Revision: 13998

Modified:
   dbi/trunk/t/50dbm_simple.t

Log:
Add support $ENV{DBD_DBM_TEST_BACKENDS} to allow more tests for
all DBD::DBM related tests


Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t	(original)
+++ dbi/trunk/t/50dbm_simple.t	Tue May 18 11:44:26 2010
@@ -24,7 +24,7 @@
     # 0=SQL::Statement if avail, 1=DBI::SQL::Nano
     # next line forces use of Nano rather than default behaviour
     # $ENV{DBI_SQL_NANO}=1;
-    # This is done in zvn_50dbm.t
+    # This is done in zv*n*_50dbm_simple.t
 
     push @mldbm_types, '';
     if (eval { require 'MLDBM.pm'; }) {
@@ -36,14 +36,17 @@
     # Potential DBM modules in preference order (SDBM_File first)
     # skip NDBM and ODBM as they don't support EXISTS
     my @dbms = qw(SDBM_File GDBM_File DB_File BerkeleyDB);
+    my @use_dbms = @ARGV;
+    if( !@use_dbms && $ENV{DBD_DBM_TEST_BACKENDS} ) {
+	@use_dbms = split ' ', $ENV{DBD_DBM_TEST_BACKENDS};
+    }
 
-    # XXX use @{$ENV{DBD_DBM_MODULES}} or so ...
-    if ("@ARGV" eq "all") {
+    if (lc "@use_dbms" eq "all") {
 	# test with as many of the major DBM types as are available
         @dbm_types = grep { eval { local $^W; require "$_.pm" } } @dbms;
     }
-    elsif (@ARGV) {
-	@dbm_types = @ARGV;
+    elsif (@use_dbms) {
+	@dbm_types = @use_dbms;
     }
     else {
 	# we only test SDBM_File by default to avoid tripping up