Lines Matching refs:ok
22 ok 1, my $lexD = new LexDir($home);
23 ok 2, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
27 ok 3, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
31 ok 4, $db1->db_close() == 0 ;
34 ok 5, $status == 0 ;
35 ok 6, $@ eq "" ;
45 ok 7, my $lexD = new LexDir($home);
46 ok 8, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
50 ok 9, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
55 ok 10, $@ =~ /BerkeleyDB Aborting: attempted to close an environment with 1 open database/ ;
69 ok 11, my $lexD = new LexDir($home);
70 ok 12, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
74 ok 13, my $txn = $env->txn_begin() ;
75 ok 14, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
80 ok 15, $txn->txn_commit() == 0 ;
82 ok 16, $status == 0 ;
83 ok 17, $@ eq "" ;
86 ok 18, $status == 0 ;
87 ok 19, $@ eq "" ;
96 ok 20, my $lexD = new LexDir($home);
97 ok 21, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
101 ok 22, my $txn = $env->txn_begin() ;
102 ok 23, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
108 ok 24, $@ =~ /BerkeleyDB Aborting: attempted to close a database while a transaction was still open at/ ;
119 ok 25, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
121 ok 26, my $cursor = $db->db_cursor() ;
122 ok 27, $cursor->c_close() == 0 ;
124 ok 28, $status == 0 ;
125 ok 29, $@ eq "" ;
133 ok 30, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
135 ok 31, my $cursor = $db->db_cursor() ;
137 ok 32, $@ =~ /\QBerkeleyDB Aborting: attempted to close a database with 1 open cursor(s) at/;
148 ok 33, my $lexD = new LexDir($home);
149 ok 34, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
152 ok 35, my $txn = $env->txn_begin() ;
153 ok 36, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
157 ok 37, my $cursor = $db->db_cursor() ;
159 ok 38, $status == 0 ;
160 ok 39, ($status = $txn->txn_commit()) == 0 ;
161 ok 40, $@ eq "" ;
163 ok 41, $status == 0 ;
164 ok 42, $@ eq "" ;
167 ok 43, $status == 0 ;
168 ok 44, $@ eq "" ;