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 d861010..b2fa80e 100644 (file)
--- a/t/43_transaction_maximum.t
+++ b/t/43_transaction_maximum.t
@@ -1,41 +1,38 @@
 use strict;
+use warnings FATAL => 'all';
+
 use Test::More;
 use Test::Deep;
 use Test::Exception;
-use t::common qw( new_fh );
-
-use DBM::Deep;
-
-my $max_txns = 250;
-
-my ($fh, $filename) = new_fh();
-
-my @dbs = grep { $_ } map {
-    my $x = 
-    eval {
-        DBM::Deep->new(
-            file     => $filename,
-            num_txns => $max_txns,
-        );
-    };
-    die $@ if $@;
-    $x;
-} 1 .. $max_txns;
-
-my $num = $#dbs;
-
-plan tests => do {
-    my $n = $num + 1;
-    2 * $n;
-};
-
-my %trans_ids;
-for my $n (0 .. $num) {
-    lives_ok {
-        $dbs[$n]->begin_work
-    } "DB $n can begin_work";
-
-    my $trans_id = $dbs[$n]->_engine->trans_id;
-    ok( !exists $trans_ids{ $trans_id }, "DB $n has a unique transaction ID ($trans_id)" );
-    $trans_ids{ $trans_id } = $n;
+use t::common qw( new_dbm );
+
+use_ok( 'DBM::Deep' );
+
+my $max_txns = 220;
+
+my $dbm_factory = new_dbm(
+    num_txns  => $max_txns,
+);
+while ( my $dbm_maker = $dbm_factory->() ) {
+    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" );
+
+    my %trans_ids;
+    for my $n (0 .. $#dbs) {
+        lives_ok {
+            $dbs[$n]->begin_work
+        } "DB $n can begin_work";
+
+        my $trans_id = $dbs[$n]->_engine->trans_id;
+        ok( !exists $trans_ids{ $trans_id }, "DB $n has a unique transaction ID ($trans_id)" );
+        $trans_ids{ $trans_id } = $n;
+    }
 }
+
+done_testing;