2 use warnings FATAL => 'all';
7 use t::common qw( new_dbm );
13 my $dbm_factory = new_dbm(
14 num_txns => $max_txns,
16 while ( my $dbm_maker = $dbm_factory->() ) {
17 my @dbs = grep { $_ } map {
18 eval { $dbm_maker->() }
22 cmp_ok( scalar(@dbs), '==', $max_txns, "We could open enough DB handles" );
25 for my $n (0 .. $#dbs) {
28 } "DB $n can begin_work";
30 my $trans_id = $dbs[$n]->_engine->trans_id;
31 ok( !exists $trans_ids{ $trans_id }, "DB $n has a unique transaction ID ($trans_id)" );
32 $trans_ids{ $trans_id } = $n;