Prepare for 1.0020

[dbsrgits/DBM-Deep.git] / t / 43_transaction_maximum.t

diff --git a/t/43_transaction_maximum.t b/t/43_transaction_maximum.t
index 6a1c7a6..b2fa80e 100644 (file)
--- a/t/43_transaction_maximum.t
+++ b/t/43_transaction_maximum.t
@@ -8,16 +8,18 @@ use t::common qw( new_dbm );
 
 use_ok( 'DBM::Deep' );
 
-my $max_txns = 255;
+my $max_txns = 220;
 
 my $dbm_factory = new_dbm(
     num_txns  => $max_txns,
 );
 while ( my $dbm_maker = $dbm_factory->() ) {
-    my @dbs = grep { $_ } map {
-        eval { $dbm_maker->() }
-    } 1 .. $max_txns;
+    my @dbs = ( $dbm_maker->() );
+    next unless $dbs[0]->supports('transactions');
 
+    push @dbs, grep { $_ } map {
+        eval { $dbm_maker->() }
+    } 2 .. $max_txns;
 
     cmp_ok( scalar(@dbs), '==', $max_txns, "We could open enough DB handles" );