Lines Matching defs:ok
18 sub ok
24 print "ok $no\n" ;
37 ok(1, tie(%h,'NDBM_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,'NDBM_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]]") ;
233 ok(19, $db = tie(%h, 'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
244 ok(20, checkOutput( "", "fred", "", "joe")) ;
247 ok(21, $h{"fred"} eq "joe");
249 ok(22, checkOutput( "", "fred", "joe", "")) ;
252 ok(23, $db->FIRSTKEY() eq "fred") ;
254 ok(24, checkOutput( "fred", "", "", "")) ;
269 ok(25, checkOutput( "", "fred", "", "Jxe")) ;
272 ok(26, $h{"Fred"} eq "[Jxe]");
274 ok(27, checkOutput( "", "fred", "[Jxe]", "")) ;
277 ok(28, $db->FIRSTKEY() eq "FRED") ;
279 ok(29, checkOutput( "FRED", "", "", "")) ;
289 ok(30, checkOutput( "", "fred", "", "joe")) ;
292 ok(31, $h{"fred"} eq "joe");
293 ok(32, checkOutput( "", "fred", "joe", "")) ;
296 ok(33, $db->FIRSTKEY() eq "fred") ;
297 ok(34, checkOutput( "fred", "", "", "")) ;
307 ok(35, checkOutput( "", "", "", "")) ;
310 ok(36, $h{"fred"} eq "joe");
311 ok(37, checkOutput( "", "", "", "")) ;
314 ok(38, $db->FIRSTKEY() eq "fred") ;
315 ok(39, checkOutput( "", "", "", "")) ;
330 ok(40, $db = tie(%h, 'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
354 ok(41, $result{"store key"} eq "store key - 1: [fred]");
355 ok(42, $result{"store value"} eq "store value - 1: [joe]");
356 ok(43, !defined $result{"fetch key"} );
357 ok(44, !defined $result{"fetch value"} );
358 ok(45, $_ eq "original") ;
360 ok(46, $db->FIRSTKEY() eq "fred") ;
361 ok(47, $result{"store key"} eq "store key - 1: [fred]");
362 ok(48, $result{"store value"} eq "store value - 1: [joe]");
363 ok(49, $result{"fetch key"} eq "fetch key - 1: [fred]");
364 ok(50, ! defined $result{"fetch value"} );
365 ok(51, $_ eq "original") ;
368 ok(52, $result{"store key"} eq "store key - 2: [fred jim]");
369 ok(53, $result{"store value"} eq "store value - 2: [joe john]");
370 ok(54, $result{"fetch key"} eq "fetch key - 1: [fred]");
371 ok(55, ! defined $result{"fetch value"} );
372 ok(56, $_ eq "original") ;
374 ok(57, $h{"fred"} eq "joe");
375 ok(58, $result{"store key"} eq "store key - 3: [fred jim fred]");
376 ok(59, $result{"store value"} eq "store value - 2: [joe john]");
377 ok(60, $result{"fetch key"} eq "fetch key - 1: [fred]");
378 ok(61, $result{"fetch value"} eq "fetch value - 1: [joe]");
379 ok(62, $_ eq "original") ;
393 ok(63, $db = tie(%h, 'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
398 ok(64, $@ =~ /^recursion detected in filter_store_key at/ );
419 ok(65, tie(%h, 'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
436 ok(66, my $db = tie(%h, 'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
443 ok(67, $h{'Alpha_ABC'} == 2);
444 ok(68, $h{'Alpha_DEF'} == 5);
448 ok(69, $bad_key == 0);
452 ok(70, $bad_key == 0);
456 ok(71, $bad_key == 0);
472 ok(72, my $db = tie(%h, 'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
482 ok(73, $h{"fred"} eq "joe");
485 ok (74, ! $@);
496 ok(75, $h{"fred"} eq "joe");
498 ok(76, $db->FIRSTKEY() eq "fred") ;
501 ok (77, ! $@);