Lines Matching refs:ok
27 ok 1, my $VER = BerkeleyDB::DB_VERSION_STRING ;
28 ok 2, my $ver = BerkeleyDB::db_version($version_major, $minor, $patch) ;
29 ok 3, $VER eq $ver ;
30 ok 4, $version_major > 1 ;
31 ok 5, defined $minor ;
32 ok 6, defined $patch ;
39 ok 7, $@ =~ /unknown key value\(s\) Stupid/ ;
42 ok 8, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
45 ok 9, !$env ;
46 ok 10, $BerkeleyDB::Error =~ /^(illegal name-value pair|Invalid argument)/ ;
53 ok 11, my $lexD = new LexDir($home) ;
55 ok 12, my $env = new BerkeleyDB::Env -Flags => DB_CREATE,
64 ok 13, my $lexD = new LexDir($home) ;
65 ok 14, my $env = new BerkeleyDB::Env -Home => $home,
75 ok 15, ! -d $home ;
78 ok 16, ! $env ;
79 ok 17, $! != 0 || $^E != 0 ;
92 ok 18, my $lexD = new LexDir($home) ;
93 ok 19, -d $data_dir ? chmod 0777, $data_dir : mkdir($data_dir, 0777) ;
94 ok 20, -d $log_dir ? chmod 0777, $log_dir : mkdir($log_dir, 0777) ;
101 ok 21, $env ;
103 ok 22, my $txn = $env->txn_begin() ;
106 ok 23, tie %hash, 'BerkeleyDB::Hash', -Filename => $data_file,
141 ok 24, my $lexD = new LexDir($home) ;
143 ok 25, my $env = new BerkeleyDB::Env( -ErrFile => $errfile,
149 ok 26, !$db ;
154 ok 27, chkMsg();
155 ok 28, -e $errfile ;
158 ok 29, $BerkeleyDB::Error eq $contents ;
168 ok 30, my $lexD = new LexDir($home) ;
171 ok 31, my $env = new BerkeleyDB::Env( -ErrFile => $fh,
177 ok 32, !$db ;
179 ok 33, chkMsg();
180 ok 34, -e $errfile ;
183 ok 35, $BerkeleyDB::Error eq $contents ;
191 ok 36, my $lexD = new LexDir($home) ;
194 ok 37, my $env = new BerkeleyDB::Env( -ErrFile => $errfile,
201 ok 38, !$db ;
203 ok 39, chkMsg('PREFIX');
204 ok 40, -e $errfile ;
207 ok 41, $BerkeleyDB::Error eq $contents ;
211 ok 42, $old eq "PREFIX" ;
216 ok 43, !$db ;
217 ok 44, chkMsg('NEW ONE');
220 ok 45, $contents =~ /$BerkeleyDB::Error$/ ;
232 ok 46, my $lexD = new LexDir($home);
233 ok 47, -d $data_dir ? chmod 0777, $data_dir : mkdir($data_dir, 0777) ;
234 ok 48, -d $log_dir ? chmod 0777, $log_dir : mkdir($log_dir, 0777) ;
241 ok 49, $env ;
243 ok 50, my $txn_mgr = $env->TxnMgr() ;
245 ok 51, $env->db_appexit() == 0 ;
254 ok 52, my $lexD = new LexDir($home) ;
257 ok 53, $version_major == 2 ? $env : ! $env ;
262 #ok 54, $version_major == 2 ? 1