5 use t::common qw( new_fh );
11 my ($fh, $filename) = new_fh();
13 my @dbs = grep { $_ } map {
17 num_txns => $max_txns,
30 for my $n (0 .. $num) {
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;