Lines Matching refs:ok
30 ok 1, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
44 ok 2, $ret == 0 ;
47 ok 3, countRecords($db) == 3 ;
51 ok 4, $db->truncate($count) == 0 ;
53 ok 5, $count == 3 ;
54 ok 6, countRecords($db) == 0 ;
78 ok 7, my $primary = new BerkeleyDB::Hash -Filename => $Dfile1,
82 ok 8, my $secondary = new BerkeleyDB::Hash -Filename => $Dfile2,
86 ok 9, $primary->associate($secondary, \&sec_key) == 0;
101 ok 10, $ret == 0 ;
104 ok 11, countRecords($secondary) == 3 ;
106 ok 12, $secondary->db_get("house", $v) == 0;
107 ok 13, $v eq "house";
109 ok 14, $secondary->db_get("sea", $v) == 0;
110 ok 15, $v eq "sea";
112 ok 16, $secondary->db_get("flag", $v) == 0;
113 ok 17, $v eq "flag";
116 ok 18, $primary->db_pget('red', $pk, $v) != 0 ;
118 # pget to secondary database is ok
119 ok 19, $secondary->db_pget('house', $pk, $v) == 0 ;
120 ok 20, $pk eq 'green';
121 ok 21, $v eq 'house';
123 ok 22, my $p_cursor = $primary->db_cursor();
124 ok 23, my $s_cursor = $secondary->db_cursor();
128 ok 24, $p_cursor->c_get($k, $v, DB_SET) == 0;
129 ok 25, $k eq 'green';
130 ok 26, $v eq 'house';
134 ok 27, $s_cursor->c_get($k, $v, DB_SET) == 0;
135 ok 28, $k eq 'sea';
136 ok 29, $v eq 'sea';
140 ok 30, $p_cursor->c_pget($k, $pk, $v, DB_FIRST) != 0;
144 ok 31, $s_cursor->c_pget($k, $pk, $v, DB_SET) == 0;
145 ok 32, $k eq 'flag';
146 ok 33, $pk eq 'red';
147 ok 34, $v eq 'flag';
150 ok 35, $secondary->db_put("tom", "dick") != 0;
151 ok 36, countRecords($secondary) == 3 ;
154 ok 37, $primary->db_del("green") == 0 ;
155 ok 38, countRecords($primary) == 2 ;
158 ok 39, $secondary->db_get("house", $v) != 0;
159 ok 40, countRecords($secondary) == 2 ;
162 ok 41, $secondary->db_del('flag') == 0 ;
163 ok 42, countRecords($secondary) == 1 ;
167 ok 43, $primary->db_get("red", $v) != 0;
168 ok 44, countRecords($primary) == 1 ;
199 ok 45, my $primary = new BerkeleyDB::Btree -Filename => $Dfile1,
204 ok 46, my $secondary = new BerkeleyDB::Btree -Filename => $Dfile2,
210 ok 47, $primary->associate($secondary, \&sec_key2) == 0;
226 ok 48, $ret == 0 ;
233 ok 49, countRecords($secondary) == 4 ;
237 ok 50, $p_data eq join " ", sort { $a cmp $b } keys %data ;
240 ok 51, $s_data eq join " ", sort { $a <=> $b } map { length } values %data ;
264 ok 52, my $primary = new BerkeleyDB::Recno -Filename => $Dfile1,
268 ok 53, my $secondary = new BerkeleyDB::Hash -Filename => $Dfile2,
272 ok 54, $primary->associate($secondary, \&sec_key3) == 0;
287 ok 55, $ret == 0 ;
290 ok 56, countRecords($secondary) == 3 ;
292 ok 57, $secondary->db_get("flag", $v) == 0;
293 ok 58, $v eq "flag";
295 ok 59, $secondary->db_get("house", $v) == 0;
296 ok 60, $v eq "house";
298 ok 61, $secondary->db_get("sea", $v) == 0;
299 ok 62, $v eq "sea" ;
302 ok 63, $primary->db_pget(0, $pk, $v) != 0 ;
304 # pget to secondary database is ok
305 ok 64, $secondary->db_pget('house', $pk, $v) == 0 ;
306 ok 65, $pk == 1 ;
307 ok 66, $v eq 'house';
309 ok 67, my $p_cursor = $primary->db_cursor();
310 ok 68, my $s_cursor = $secondary->db_cursor();
314 ok 69, $p_cursor->c_get($k, $v, DB_SET) == 0;
315 ok 70, $k == 1;
316 ok 71, $v eq 'house';
320 ok 72, $s_cursor->c_get($k, $v, DB_SET) == 0;
321 ok 73, $k eq 'sea'
323 ok 74, $v eq 'sea';
327 ok 75, $p_cursor->c_pget($k, $pk, $v, DB_FIRST) != 0;
331 ok 76, $s_cursor->c_pget($k, $pk, $v, DB_SET) == 0;
332 ok 77, $k eq 'sea' ;
333 ok 78, $pk == 2 ;
334 ok 79, $v eq 'sea';
337 ok 80, $secondary->db_put("tom", "dick") != 0;
338 ok 81, countRecords($secondary) == 3 ;
341 ok 82, $primary->db_del(2) == 0 ;
342 ok 83, countRecords($primary) == 2 ;
345 ok 84, $secondary->db_get("sea", $v) != 0;
346 ok 85, countRecords($secondary) == 2 ;
349 ok 86, $secondary->db_del('flag') == 0 ;
350 ok 87, countRecords($secondary) == 1 ;
354 ok 88, $primary->db_get(0, $v) != 0;
355 ok 89, countRecords($primary) == 1 ;
379 ok 90, my $primary = new BerkeleyDB::Hash -Filename => $Dfile1,
383 ok 91, my $secondary = new BerkeleyDB::Recno -Filename => $Dfile2,
388 ok 92, $primary->associate($secondary, \&sec_key4) == 0;
403 ok 93, $ret == 0 ;
406 ok 94, countRecords($secondary) == 3 ;
408 ok 95, $secondary->db_get(0, $v) != 0;
409 ok 96, $secondary->db_get(1, $v) != 0;
410 ok 97, $secondary->db_get(2, $v) != 0;
411 ok 98, $secondary->db_get(3, $v) == 0;
412 ok 99, $v eq "sea";
414 ok 100, $secondary->db_get(4, $v) == 0;
415 ok 101, $v eq "flag";
417 ok 102, $secondary->db_get(5, $v) == 0;
418 ok 103, $v eq "house";
421 ok 104, $primary->db_pget(0, $pk, $v) != 0 ;
423 # pget to secondary database is ok
424 ok 105, $secondary->db_pget(4, $pk, $v) == 0 ;
425 ok 106, $pk eq 'red'
427 ok 107, $v eq 'flag';
429 ok 108, my $p_cursor = $primary->db_cursor();
430 ok 109, my $s_cursor = $secondary->db_cursor();
434 ok 110, $p_cursor->c_get($k, $v, DB_SET) == 0;
435 ok 111, $k eq 'green';
436 ok 112, $v eq 'house';
440 ok 113, $s_cursor->c_get($k, $v, DB_SET) == 0;
441 ok 114, $k == 3 ;
442 ok 115, $v eq 'sea';
446 ok 116, $p_cursor->c_pget($k, $pk, $v, DB_SET) != 0;
450 ok 117, $s_cursor->c_pget($k, $pk, $v, DB_SET) == 0;
451 ok 118, $k == 5 ;
452 ok 119, $pk eq 'green';
453 ok 120, $v eq 'house';
456 ok 121, $secondary->db_put(77, "dick") != 0;
457 ok 122, countRecords($secondary) == 3 ;
460 ok 123, $primary->db_del("green") == 0 ;
461 ok 124, countRecords($primary) == 2 ;
464 ok 125, $secondary->db_get(5, $v) != 0;
465 ok 126, countRecords($secondary) == 2 ;
468 ok 127, $secondary->db_del(4) == 0 ;
469 ok 128, countRecords($secondary) == 1 ;
473 ok 129, $primary->db_get("red", $v) != 0;
474 ok 130, countRecords($primary) == 1 ;