Lines Matching refs:ok
24 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
27 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
30 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
33 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
37 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
44 ok 6, writeFile($Dfile, "") ;
46 ok 7, ! (new BerkeleyDB::Unknown -Filename => $Dfile);
50 ok 8, ! (new BerkeleyDB::Unknown -Filename => $Dfile);
59 ok 9, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
65 ok 10, $db->db_put("some key", "some value") == 0 ;
66 ok 11, $db->db_put("key", "value") == 0 ;
72 ok 12, $db = new BerkeleyDB::Unknown -Filename => $Dfile;
74 ok 13, $db->type() == DB_HASH ;
75 ok 14, $db->db_get("some key", $value) == 0 ;
76 ok 15, $value eq "some value" ;
77 ok 16, $db->db_get("key", $value) == 0 ;
78 ok 17, $value eq "value" ;
82 ok 18, $@ =~ /^Tie needs a reference to a hash/ ;
86 ok 19, $hash{"some key"} eq "some value" ;
96 ok 20, my $db = new BerkeleyDB::Btree -Filename => $Dfile,
102 ok 21, $db->db_put("some key", "some value") == 0 ;
103 ok 22, $db->db_put("key", "value") == 0 ;
110 ok 23, $db = new BerkeleyDB::Unknown -Filename => $Dfile;
112 ok 24, $db->type() == DB_BTREE ;
113 ok 25, $db->db_get("some key", $value) == 0 ;
114 ok 26, $value eq "some value" ;
115 ok 27, $db->db_get("key", $value) == 0 ;
116 ok 28, $value eq "value" ;
121 ok 29, $@ =~ /^Tie needs a reference to a hash/ ;
125 ok 30, $hash{"some key"} eq "some value" ;
136 ok 31, my $db = new BerkeleyDB::Recno -Filename => $Dfile,
142 ok 32, $db->db_put(0, "some value") == 0 ;
143 ok 33, $db->db_put(1, "value") == 0 ;
150 ok 34, $db = new BerkeleyDB::Unknown -Filename => $Dfile;
152 ok 35, $db->type() == DB_RECNO ;
153 ok 36, $db->db_get(0, $value) == 0 ;
154 ok 37, $value eq "some value" ;
155 ok 38, $db->db_get(1, $value) == 0 ;
156 ok 39, $value eq "value" ;
161 ok 40, $@ =~ /^Tie needs a reference to an array/ ;
165 ok 41, $array[1] eq "value" ;