Lines Matching defs:ok
18 sub ok
24 print "ok $no\n" ;
37 ok(1, tie(%h,'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640));
44 print "ok 2 # Skipped: different file permission semantics\n";
49 print (($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n");
55 print (!$i ? "ok 3\n" : "not ok 3\n");
77 print (tie(%h,'ODBM_File','Op.dbmx', O_RDWR, 0640) ? "ok 4\n" : "not ok 4\n");
105 if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
114 if ($i == 30) {print "ok 6\n";} else {print "not ok 6\n";}
117 if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
123 my $ok = 1;
125 for ($i = 1; $i < 200; $i++) { $ok = 0 unless $h{$i} == $i; }
126 print ($ok ? "ok 8\n" : "not ok 8\n");
130 print ($size > 0 ? "ok 9\n" : "not ok 9\n");
134 print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
136 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
137 print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
193 main::ok(13, $@ eq "") ;
200 main::ok(14, $@ eq "") ;
203 main::ok(15, $@ eq "") ;
204 main::ok(16, $ret == 5) ;
207 main::ok(17, $@ eq "") ;
208 main::ok(18, $ret eq "[[5]]") ;
235 ok(19, $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
246 ok(20, checkOutput( "", "fred", "", "joe")) ;
249 ok(21, $h{"fred"} eq "joe");
251 ok(22, checkOutput( "", "fred", "joe", "")) ;
254 ok(23, $db->FIRSTKEY() eq "fred") ;
256 ok(24, checkOutput( "fred", "", "", "")) ;
271 ok(25, checkOutput( "", "fred", "", "Jxe")) ;
274 ok(26, $h{"Fred"} eq "[Jxe]");
276 ok(27, checkOutput( "", "fred", "[Jxe]", "")) ;
279 ok(28, $db->FIRSTKEY() eq "FRED") ;
281 ok(29, checkOutput( "FRED", "", "", "")) ;
291 ok(30, checkOutput( "", "fred", "", "joe")) ;
294 ok(31, $h{"fred"} eq "joe");
295 ok(32, checkOutput( "", "fred", "joe", "")) ;
298 ok(33, $db->FIRSTKEY() eq "fred") ;
299 ok(34, checkOutput( "fred", "", "", "")) ;
309 ok(35, checkOutput( "", "", "", "")) ;
312 ok(36, $h{"fred"} eq "joe");
313 ok(37, checkOutput( "", "", "", "")) ;
316 ok(38, $db->FIRSTKEY() eq "fred") ;
317 ok(39, checkOutput( "", "", "", "")) ;
332 ok(40, $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
356 ok(41, $result{"store key"} eq "store key - 1: [fred]");
357 ok(42, $result{"store value"} eq "store value - 1: [joe]");
358 ok(43, !defined $result{"fetch key"} );
359 ok(44, !defined $result{"fetch value"} );
360 ok(45, $_ eq "original") ;
362 ok(46, $db->FIRSTKEY() eq "fred") ;
363 ok(47, $result{"store key"} eq "store key - 1: [fred]");
364 ok(48, $result{"store value"} eq "store value - 1: [joe]");
365 ok(49, $result{"fetch key"} eq "fetch key - 1: [fred]");
366 ok(50, ! defined $result{"fetch value"} );
367 ok(51, $_ eq "original") ;
370 ok(52, $result{"store key"} eq "store key - 2: [fred jim]");
371 ok(53, $result{"store value"} eq "store value - 2: [joe john]");
372 ok(54, $result{"fetch key"} eq "fetch key - 1: [fred]");
373 ok(55, ! defined $result{"fetch value"} );
374 ok(56, $_ eq "original") ;
376 ok(57, $h{"fred"} eq "joe");
377 ok(58, $result{"store key"} eq "store key - 3: [fred jim fred]");
378 ok(59, $result{"store value"} eq "store value - 2: [joe john]");
379 ok(60, $result{"fetch key"} eq "fetch key - 1: [fred]");
380 ok(61, $result{"fetch value"} eq "fetch value - 1: [joe]");
381 ok(62, $_ eq "original") ;
395 ok(63, $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
400 ok(64, $@ =~ /^recursion detected in filter_store_key at/ );
421 ok(65, tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
423 ok(66, $a eq "") ;
442 ok(67, my $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
449 ok(68, $h{'Alpha_ABC'} == 2);
450 ok(69, $h{'Alpha_DEF'} == 5);
454 ok(70, $bad_key == 0);
458 ok(71, $bad_key == 0);
462 ok(72, $bad_key == 0);
478 ok(73, my $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
488 ok(74, $h{"fred"} eq "joe");
491 ok (75, ! $@);
502 ok(76, $h{"fred"} eq "joe");
504 ok(77, $db->FIRSTKEY() eq "fred") ;
507 ok (78, ! $@);