5 use t::common qw( new_fh );
11 my ($fh, $filename) = new_fh();
13 my @dbs = grep { $_ } map {
18 num_txns => $max_txns,
33 for my $n (0 .. $num) {
36 } "DB $n can begin_work";
38 my $trans_id = $dbs[$n]->_engine->trans_id;
39 ok( !exists $trans_ids{ $trans_id }, "DB $n has a unique transaction ID ($trans_id)" );
40 $trans_ids{ $trans_id } = $n;