Lines Matching refs:ok
40 sub ok
46 print "ok $no\n" ;
166 ok(1, ! defined $dbh->{bval}) ;
167 ok(2, ! defined $dbh->{cachesize}) ;
168 ok(3, ! defined $dbh->{psize}) ;
169 ok(4, ! defined $dbh->{flags}) ;
170 ok(5, ! defined $dbh->{lorder}) ;
171 ok(6, ! defined $dbh->{reclen}) ;
172 ok(7, ! defined $dbh->{bfname}) ;
175 ok(8, $dbh->{bval} == 3000 );
178 ok(9, $dbh->{cachesize} == 9000 );
181 ok(10, $dbh->{psize} == 400 );
184 ok(11, $dbh->{flags} == 65 );
187 ok(12, $dbh->{lorder} == 123 );
190 ok(13, $dbh->{reclen} == 1234 );
193 ok(14, $dbh->{bfname} == 1234 );
198 ok(15, $@ =~ /^DB_File::RECNOINFO::STORE - Unknown element 'fred' at/ );
200 ok(16, $@ =~ /^DB_File::RECNOINFO::FETCH - Unknown element 'fred' at/ );
206 ok(17, $X = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
210 ok(18, ((stat($Dfile))[2] & 0777) == (($^O eq 'os2' || $^O eq 'MacOS') ? 0666 : 0640)
215 ok(19, ($FA ? @h == 0 : !$l) );
220 ok(20, $h[0] eq 'a' );
228 ok(21, defined $h[1] );
229 ok(22, ! defined $h[16] );
230 ok(23, $FA ? @h == @data : $X->length == @data );
236 ok(24, $h[3] eq 'replaced' );
242 ok(25, $h[++$i] eq 'added' );
243 ok(26, $h[++$i] eq 'to' );
244 ok(27, $h[++$i] eq 'the' );
245 ok(28, $h[++$i] eq 'end' );
250 ok(29, $value eq $popped) ;
255 ok(30, $value eq $shifted );
261 ok(31, ($FA ? @h == @data : $X->length == @data ));
266 ok(32, $FA ? @h == @data : $X->length == @data );
267 ok(33, $h[0] eq "add") ;
268 ok(34, $h[1] eq "this") ;
269 ok(35, $h[2] eq "to") ;
270 ok(36, $h[3] eq "the") ;
271 ok(37, $h[4] eq "start") ;
272 ok(38, $h[5] eq "of") ;
273 ok(39, $h[6] eq "the") ;
274 ok(40, $h[7] eq "array") ;
275 ok(41, $h[8] eq $data[8]) ;
285 ok(42, $h[0] eq "add") ;
286 ok(43, $h[1] eq "bananas") ;
287 ok(44, $h[2] eq "just") ;
288 ok(45, $h[3] eq "before") ;
289 ok(46, $h[4] eq "the") ;
290 ok(47, $h[5] eq "start") ;
291 ok(48, $h[6] eq "of") ;
292 ok(49, $h[7] eq "the") ;
293 ok(50, $h[8] eq "array") ;
294 ok(51, $h[9] eq $data[8]) ;
299 my $ok = 1 ;
303 $ok = 0, last if $_ ne $h[$j ++] ;
305 ok(52, $ok );
310 ok(53, $h[-1] eq $data[-1] );
311 ok(54, $h[-1] eq $h[ ($FA ? @h : $X->length) -1] );
315 ok(55, $@ eq "" );
316 ok(56, $h[0] eq "abcd" );
320 ok(57, $@ =~ '^Modification of non-creatable array value attempted' );
325 ok(58, safeUntie \@h);
335 ok(59, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
339 ok(60, safeUntie \@h);
342 ok(61, $x eq "abc\ndef\n\nghi\n") ;
351 ok(62, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
355 ok(63, safeUntie \@h);
358 my $ok = ($x eq "abc-def--ghi-") ;
359 bad_one() unless $ok ;
360 ok(64, $ok) ;
370 ok(65, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
374 ok(66, safeUntie \@h);
377 my $ok = ($x eq "abc def ghi ") ;
378 bad_one() unless $ok ;
379 ok(67, $ok) ;
390 ok(68, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
394 ok(69, safeUntie \@h);
397 my $ok = ($x eq "abc--def-------ghi--") ;
398 bad_one() unless $ok ;
399 ok(70, $ok) ;
408 ok(71, $@ =~ /^DB_File can only tie an array to a DB_RECNO database/) ;
475 main::ok(72, $@ eq "") ;
483 main::ok(73, $@ eq "") ;
486 main::ok(74, $@ eq "") ;
487 main::ok(75, $ret == 5) ;
491 main::ok(76, $@ eq "") ;
492 main::ok(77, $ret == 10) ;
495 main::ok(78, $@ eq "" ) ;
496 main::ok(79, $ret == 1) ;
499 main::ok(80, $@ eq "") ;
500 main::ok(81, $ret eq "[[11]]") ;
503 main::ok(82, main::safeUntie \@h);
513 ok(83, $self = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
518 ok(84, $FA ? $#h == 3 : $self->length() == 4) ;
520 ok(85, safeUntie \@h);
522 ok(86, $x eq "abc\ndef\nghi\njkl\n") ;
526 ok(87, $self)
532 ok(88, $FA ? $#h == 3 : $self->length() == 4) ;
534 ok(89, safeUntie \@h);
536 ok(90, $x eq "abc\ndef\nghi\njkl\n") ;
539 ok(91, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
544 ok(92, $FA ? $#h == 6 : $self->length() == 7) ;
546 ok(93, safeUntie \@h);
548 ok(94, $x eq "abc\ndef\nghi\njkl\n\n\n\n") ;
551 ok(95, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
556 ok(96, $FA ? $#h == 2 : $self->length() == 3) ;
558 ok(97, safeUntie \@h);
560 ok(98, $x eq "abc\ndef\nghi\n") ;
596 ok(99, $db = tie(@h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) );
607 ok(100, checkOutput( "", 0, "", "joe")) ;
610 ok(101, $h[0] eq "joe");
612 ok(102, checkOutput( "", 0, "joe", "")) ;
615 ok(103, $db->FIRSTKEY() == 0) ;
617 ok(104, checkOutput( 0, "", "", "")) ;
632 ok(105, checkOutput( "", 2, "", "Jxe")) ;
635 ok(106, $h[1] eq "[Jxe]");
637 ok(107, checkOutput( "", 2, "[Jxe]", "")) ;
640 ok(108, $db->FIRSTKEY() == 1) ;
642 ok(109, checkOutput( 1, "", "", "")) ;
652 ok(110, checkOutput( "", 0, "", "joe")) ;
655 ok(111, $h[0] eq "joe");
656 ok(112, checkOutput( "", 0, "joe", "")) ;
659 ok(113, $db->FIRSTKEY() == 0) ;
660 ok(114, checkOutput( 0, "", "", "")) ;
670 ok(115, checkOutput( "", "", "", "")) ;
673 ok(116, $h[0] eq "joe");
674 ok(117, checkOutput( "", "", "", "")) ;
677 ok(118, $db->FIRSTKEY() == 0) ;
678 ok(119, checkOutput( "", "", "", "")) ;
681 ok(120, safeUntie \@h);
693 ok(121, $db = tie(@h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) );
717 ok(122, $result{"store key"} eq "store key - 1: [0]");
718 ok(123, $result{"store value"} eq "store value - 1: [joe]");
719 ok(124, ! defined $result{"fetch key"} );
720 ok(125, ! defined $result{"fetch value"} );
721 ok(126, $_ eq "original") ;
723 ok(127, $db->FIRSTKEY() == 0 ) ;
724 ok(128, $result{"store key"} eq "store key - 1: [0]");
725 ok(129, $result{"store value"} eq "store value - 1: [joe]");
726 ok(130, $result{"fetch key"} eq "fetch key - 1: [0]");
727 ok(131, ! defined $result{"fetch value"} );
728 ok(132, $_ eq "original") ;
731 ok(133, $result{"store key"} eq "store key - 2: [0 7]");
732 ok(134, $result{"store value"} eq "store value - 2: [joe john]");
733 ok(135, $result{"fetch key"} eq "fetch key - 1: [0]");
734 ok(136, ! defined $result{"fetch value"} );
735 ok(137, $_ eq "original") ;
737 ok(138, $h[0] eq "joe");
738 ok(139, $result{"store key"} eq "store key - 3: [0 7 0]");
739 ok(140, $result{"store value"} eq "store value - 2: [joe john]");
740 ok(141, $result{"fetch key"} eq "fetch key - 1: [0]");
741 ok(142, $result{"fetch value"} eq "fetch value - 1: [joe]");
742 ok(143, $_ eq "original") ;
745 ok(144, safeUntie \@h);
756 ok(145, $db = tie(@h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) );
761 ok(146, $@ =~ /^recursion detected in filter_store_key at/ );
764 ok(147, safeUntie \@h);
819 ok(148, docat_del($file) eq <<'EOM') ;
904 ok(149, docat_del($save_output) eq <<'EOM') ;
952 ok(150, $a eq "") ;
953 ok(151, safeUntie \@h);
972 ok(152, $a eq "") ;
973 ok(153, safeUntie \@h);
985 ok(154, $db = tie(@h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) );
995 ok(155, $h[0] eq "joe");
998 ok (156, ! $@);
1009 ok(157, $h[1] eq "joe");
1012 ok (158, ! $@);
1028 ok(159, $db = tie(@h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) );
1042 ok 160, $key == 22;
1043 ok 161, $value == 34 ;
1044 ok 162, $_ eq 'fred';
1049 ok 163, $key == 22;
1050 ok 164, $val == 34 ;
1051 ok 165, $_ eq 'fred';
1056 ok 166, $key == 51;
1057 ok 167, $value == 454 ;
1058 ok 168, $_ eq 'fred';
1081 ok(169, $db = tie(@h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO) );
1096 ok 170, $warned eq ''
1109 ok 171, $warned eq ''
1123 ok 172, $warned eq ''
1137 ok 173, $warned eq ''
1156 ok 174, keys %bad == 0 ;
1157 ok 175, keys %remember == 0 ;
1166 ok 176, $status == 0
1168 ok 177, $warned eq ''
1175 ok 178, $status == 0
1177 ok(179, $db->get(undef, $value) == 0) or print "# get failed\n" ;
1178 ok 180, $value eq 'fred' or print "# got [$value]\n" ;
1179 ok 181, $warned eq ''
1215 ok(182, $a =~ /^Use of uninitialized value /);
1218 ok(183, $a =~ /^Use of uninitialized value in splice/);
1223 ok(184, $a eq '');
1226 ok(185, $a eq '');
1233 ok(186, $a =~ /^Use of uninitialized value /);
1236 ok(187, $a =~ /^Use of uninitialized value in splice/);
1241 ok(188, $a eq '');
1244 ok(189, $a eq '');
1253 ok(190, !$splice_end_array || $a =~ /^splice\(\) offset past end of array/);
1258 ok(191, $a eq '');
1261 ok(192, $a eq '');
1263 ok(193, safeUntie \@tied);
1333 ok($testnum++, 0);
1335 else { ok($testnum++, 1) }
1358 ok($testnum++, not $failed);