Lines Matching defs:ok
18 sub ok
24 print "ok $no\n" ;
37 ok(1, tie %h,'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640);
44 print "ok 2 # Skipped: different file permission semantics\n";
49 print (($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) ? "ok 2\n" : "not ok 2\n");
55 print (!$i ? "ok 3\n" : "not ok 3\n");
77 print (tie(%h,'SDBM_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");
191 main::ok(13, $@ eq "") ;
198 main::ok(14, $@ eq "") ;
201 main::ok(15, $@ eq "") ;
202 main::ok(16, $ret == 5) ;
205 main::ok(17, $@ eq "") ;
206 main::ok(18, $ret eq "[[5]]") ;
214 ok(19, !exists $h{'goner1'});
215 ok(20, exists $h{'foo'});
237 ok(21, $db = tie(%h, 'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640)) ;
248 ok(22, checkOutput( "", "fred", "", "joe")) ;
251 ok(23, $h{"fred"} eq "joe");
253 ok(24, checkOutput( "", "fred", "joe", "")) ;
256 ok(25, $db->FIRSTKEY() eq "fred") ;
258 ok(26, checkOutput( "fred", "", "", "")) ;
273 ok(27, checkOutput( "", "fred", "", "Jxe")) ;
276 ok(28, $h{"Fred"} eq "[Jxe]");
278 ok(29, checkOutput( "", "fred", "[Jxe]", "")) ;
281 ok(30, $db->FIRSTKEY() eq "FRED") ;
283 ok(31, checkOutput( "FRED", "", "", "")) ;
293 ok(32, checkOutput( "", "fred", "", "joe")) ;
296 ok(33, $h{"fred"} eq "joe");
297 ok(34, checkOutput( "", "fred", "joe", "")) ;
300 ok(35, $db->FIRSTKEY() eq "fred") ;
301 ok(36, checkOutput( "fred", "", "", "")) ;
311 ok(37, checkOutput( "", "", "", "")) ;
314 ok(38, $h{"fred"} eq "joe");
315 ok(39, checkOutput( "", "", "", "")) ;
318 ok(40, $db->FIRSTKEY() eq "fred") ;
319 ok(41, checkOutput( "", "", "", "")) ;
334 ok(42, $db = tie(%h, 'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640)) ;
358 ok(43, $result{"store key"} eq "store key - 1: [fred]");
359 ok(44, $result{"store value"} eq "store value - 1: [joe]");
360 ok(45, !defined $result{"fetch key"} );
361 ok(46, !defined $result{"fetch value"} );
362 ok(47, $_ eq "original") ;
364 ok(48, $db->FIRSTKEY() eq "fred") ;
365 ok(49, $result{"store key"} eq "store key - 1: [fred]");
366 ok(50, $result{"store value"} eq "store value - 1: [joe]");
367 ok(51, $result{"fetch key"} eq "fetch key - 1: [fred]");
368 ok(52, ! defined $result{"fetch value"} );
369 ok(53, $_ eq "original") ;
372 ok(54, $result{"store key"} eq "store key - 2: [fred jim]");
373 ok(55, $result{"store value"} eq "store value - 2: [joe john]");
374 ok(56, $result{"fetch key"} eq "fetch key - 1: [fred]");
375 ok(57, ! defined $result{"fetch value"} );
376 ok(58, $_ eq "original") ;
378 ok(59, $h{"fred"} eq "joe");
379 ok(60, $result{"store key"} eq "store key - 3: [fred jim fred]");
380 ok(61, $result{"store value"} eq "store value - 2: [joe john]");
381 ok(62, $result{"fetch key"} eq "fetch key - 1: [fred]");
382 ok(63, $result{"fetch value"} eq "fetch value - 1: [joe]");
383 ok(64, $_ eq "original") ;
397 ok(65, $db = tie(%h, 'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640)) ;
402 ok(66, $@ =~ /^recursion detected in filter_store_key at/ );
423 ok(67, tie(%h, 'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640)) ;
425 ok(68, $a eq "") ;
445 ok(69, my $db = tie(%h, 'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640)) ;
452 ok(70, $h{'Alpha_ABC'} == 2);
453 ok(71, $h{'Alpha_DEF'} == 5);
457 ok(72, $bad_key == 0);
461 ok(73, $bad_key == 0);
465 ok(74, $bad_key == 0);
481 ok(75, my $db = tie(%h, 'SDBM_File','Op1_dbmx', O_RDWR|O_CREAT, 0640)) ;
491 ok(76, $h{"fred"} eq "joe");
494 ok (77, ! $@);
505 ok(78, $h{"fred"} eq "joe");
507 ok(79, $db->FIRSTKEY() eq "fred") ;
510 ok (80, ! $@);