Lines Matching refs:ok
26 ok my $db = new BerkeleyDB::Unknown -Filename => $file ,
30 ok my $cursor = $db->db_cursor() ;
38 ok $status == DB_NOTFOUND;
52 ok $@ =~ /unknown key value\(s\) Stupid/ ;
55 ok $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
58 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
61 ok $@ =~ /^Must specify a filename/ ;
65 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
76 ok my $db = new BerkeleyDB::Hash -Filename => $Dfile,
88 ok addData($db, %data) ;
94 ok ! $db ;
96 ok -e $Dfile ;
97 ok ! BerkeleyDB::db_remove(-Filename => $Dfile) ;
108 ok my $db = new BerkeleyDB::Hash -Filename => $Dfile,
121 ok addData($db, %data) ;
128 ok !$db ;
137 ok my $db = new BerkeleyDB::Hash -Filename => $Dfile,
150 ok addData($db, %data) ;
165 ok my $db1 = new BerkeleyDB::Hash -Filename => $Dfile,
169 ok my $db2 = new BerkeleyDB::Btree -Filename => $Dfile,
182 ok addData($db1, %data) ;
183 ok addData($db2, %data) ;
190 ok BerkeleyDB::db_remove(-Filename => $Dfile, -Subname => "harry") != 0;
191 ok BerkeleyDB::db_remove(-Filename => $Dfile, -Subname => "fred") == 0 ;
197 ok BerkeleyDB::db_remove(-Filename => $Dfile, -Subname => "fred") != 0;
199 ok BerkeleyDB::db_remove(-Filename => $Dfile, -Subname => "joe") == 0 ;
204 ok -e $Dfile ;
205 ok BerkeleyDB::db_remove(-Filename => $Dfile) == 0 ;
206 ok ! -e $Dfile ;
207 ok BerkeleyDB::db_remove(-Filename => $Dfile) != 0 ;