2 use warnings FATAL => 'all';
7 use t::common qw( new_dbm );
13 if ( $ENV{NO_TEST_TRANSACTIONS} ) {
18 my $dbm_factory = new_dbm(
19 num_txns => $max_txns,
21 while ( my $dbm_maker = $dbm_factory->() ) {
22 my @dbs = grep { $_ } map {
23 eval { $dbm_maker->() }
27 cmp_ok( scalar(@dbs), '==', $max_txns, "We could open enough DB handles" );
30 for my $n (0 .. $#dbs) {
33 } "DB $n can begin_work";
35 my $trans_id = $dbs[$n]->_engine->trans_id;
36 ok( !exists $trans_ids{ $trans_id }, "DB $n has a unique transaction ID ($trans_id)" );
37 $trans_ids{ $trans_id } = $n;