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, my $txn = $env->txn_begin() ;
28 ok 4, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
33 ok 5, $txn->txn_commit() == 0 ;
34 ok 6, $txn = $env->txn_begin() ;
48 ok 7, $ret == 0 ;
52 ok 8, my $cursor = $db1->db_cursor() ;
59 ok 9, $count == 3 ;
63 ok 10, $txn->txn_abort() == 0 ;
68 ok 11, $cursor = $db1->db_cursor() ;
72 ok 12, $count == 0 ;
87 ok 13, my $db1 = tie %hash, 'BerkeleyDB::Hash',
92 ok 14, $cursor = $db1->db_cursor() ;
96 ok 15, $count == 0 ;