Lines Matching refs:ok
23 ok 1, my $lexD = new LexDir($home);
24 ok 2, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
27 ok 3, $@ =~ /^BerkeleyDB Aborting: Transaction Manager not enabled at/ ;
30 ok 4, $@ =~ /^BerkeleyDB Aborting: Transaction Manager not enabled at/ ;
43 ok 5, my $lexD = new LexDir($home);
44 ok 6, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
47 ok 7, my $txn = $env->txn_begin() ;
48 ok 8, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
54 ok 9, $txn->txn_commit() == 0 ;
55 ok 10, $txn = $env->txn_begin() ;
69 ok 11, $ret == 0 ;
73 ok 12, my $cursor = $db1->db_cursor() ;
80 ok 13, $count == 3 ;
84 ok 14, $txn->txn_abort() == 0 ;
89 ok 15, $cursor = $db1->db_cursor() ;
93 ok 16, $count == 0 ;
96 ok 17, $stat->{'st_naborts'} == 1 ;
113 ok 18, my $lexD = new LexDir($home);
114 ok 19, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
117 ok 20, my $txn_mgr = $env->TxnMgr() ;
118 ok 21, my $txn = $txn_mgr->txn_begin() ;
119 ok 22, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
124 ok 23, $txn->txn_commit() == 0 ;
125 ok 24, $txn = $env->txn_begin() ;
139 ok 25, $ret == 0 ;
143 ok 26, my $cursor = $db1->db_cursor() ;
150 ok 27, $count == 3 ;
154 ok 28, $txn->txn_abort() == 0 ;
159 ok 29, $cursor = $db1->db_cursor() ;
163 ok 30, $count == 0 ;
166 ok 31, $stat->{'st_naborts'} == 1 ;
184 ok 32, my $lexD = new LexDir($home);
185 ok 33, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
188 ok 34, my $txn = $env->txn_begin() ;
189 ok 35, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
195 ok 36, $txn->txn_commit() == 0 ;
196 ok 37, $txn = $env->txn_begin() ;
210 ok 38, $ret == 0 ;
214 ok 39, my $cursor = $db1->db_cursor() ;
221 ok 40, $count == 3 ;
225 ok 41, $txn->txn_commit() == 0 ;
229 ok 42, $cursor = $db1->db_cursor() ;
233 ok 43, $count == 3 ;
236 ok 44, $stat->{'st_naborts'} == 0 ;
253 ok 45, my $lexD = new LexDir($home);
254 ok 46, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
257 ok 47, my $txn_mgr = $env->TxnMgr() ;
258 ok 48, my $txn = $txn_mgr->txn_begin() ;
259 ok 49, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
264 ok 50, $txn->txn_commit() == 0 ;
265 ok 51, $txn = $env->txn_begin() ;
279 ok 52, $ret == 0 ;
283 ok 53, my $cursor = $db1->db_cursor() ;
290 ok 54, $count == 3 ;
294 ok 55, $txn->txn_commit() == 0 ;
298 ok 56, $cursor = $db1->db_cursor() ;
302 ok 57, $count == 3 ;
305 ok 58, $stat->{'st_naborts'} == 0 ;