Lines Matching refs:ok
35 ok 1, $db = tie %h, 'BerkeleyDB::Hash',
48 ok 2, checkOutput( "", "fred", "", "joe") ;
51 ok 3, $h{"fred"} eq "joe";
53 ok 4, checkOutput( "", "fred", "joe", "") ;
56 ok 5, $db->FIRSTKEY() eq "fred" ;
58 ok 6, checkOutput( "fred", "", "", "") ;
73 ok 7, checkOutput( "", "fred", "", "Jxe") ;
76 ok 8, $h{"Fred"} eq "[Jxe]";
79 ok 9, checkOutput( "", "fred", "[Jxe]", "") ;
82 ok 10, $db->FIRSTKEY() eq "FRED" ;
84 ok 11, checkOutput( "FRED", "", "", "") ;
94 ok 12, checkOutput( "", "fred", "", "joe") ;
97 ok 13, $h{"fred"} eq "joe";
98 ok 14, checkOutput( "", "fred", "joe", "") ;
101 ok 15, $db->FIRSTKEY() eq "fred" ;
102 ok 16, checkOutput( "fred", "", "", "") ;
112 ok 17, checkOutput( "", "", "", "") ;
115 ok 18, $h{"fred"} eq "joe";
116 ok 19, checkOutput( "", "", "", "") ;
119 ok 20, $db->FIRSTKEY() eq "fred" ;
120 ok 21, checkOutput( "", "", "", "") ;
134 ok 22, $db = tie %h, 'BerkeleyDB::Hash',
160 ok 23, $result{"store key"} eq "store key - 1: [fred]" ;
161 ok 24, $result{"store value"} eq "store value - 1: [joe]" ;
162 ok 25, ! defined $result{"fetch key"} ;
163 ok 26, ! defined $result{"fetch value"} ;
164 ok 27, $_ eq "original" ;
166 ok 28, $db->FIRSTKEY() eq "fred" ;
167 ok 29, $result{"store key"} eq "store key - 1: [fred]" ;
168 ok 30, $result{"store value"} eq "store value - 1: [joe]" ;
169 ok 31, $result{"fetch key"} eq "fetch key - 1: [fred]" ;
170 ok 32, ! defined $result{"fetch value"} ;
171 ok 33, $_ eq "original" ;
174 ok 34, $result{"store key"} eq "store key - 2: [fred jim]" ;
175 ok 35, $result{"store value"} eq "store value - 2: [joe john]" ;
176 ok 36, $result{"fetch key"} eq "fetch key - 1: [fred]" ;
177 ok 37, ! defined $result{"fetch value"} ;
178 ok 38, $_ eq "original" ;
180 ok 39, $h{"fred"} eq "joe" ;
181 ok 40, $result{"store key"} eq "store key - 3: [fred jim fred]" ;
182 ok 41, $result{"store value"} eq "store value - 2: [joe john]" ;
183 ok 42, $result{"fetch key"} eq "fetch key - 1: [fred]" ;
184 ok 43, $result{"fetch value"} eq "fetch value - 1: [joe]" ;
185 ok 44, $_ eq "original" ;
198 ok 45, $db = tie %h, 'BerkeleyDB::Hash',
205 ok 46, $@ =~ /^recursion detected in filter_store_key at/ ;
220 ok 47, $db = tie %h, 'BerkeleyDB::Hash',
232 ok(48, $h{"fred"} eq "joe");
235 ok (49, ! $@);
246 ok(50, $h{"fred"} eq "joe");
248 ok(51, $db->FIRSTKEY() eq "fred") ;
251 ok (52, ! $@);
265 ok 53, $db = tie %h, 'BerkeleyDB::Hash',
289 ok 54, ! $db->db_put(3,5);
291 ok 55, ! $db->db_get(3, $v);
292 ok 56, $v == 5 ;
295 ok 57, $h{4} == 7;
300 ok 58, $k == 10;
301 ok 59, $v == 30;
302 ok 60, $h{$k} == 30;
305 ok 61, ! $db->db_get($k, $v, DB_GET_BOTH);
306 ok 62, $k == 3 ;
307 ok 63, $v == 5 ;
317 ok 64, keys %tmp == 3 ;
318 ok 65, $tmp{3} == 5;