Lines Matching defs:ok
29 sub ok {
30 my($testno, $ok) = @_;
31 print "not " unless $ok;
32 print "ok $testno\n";
114 ok 1, (length($x1) > $hashsize); # sanity check
115 ok 2, length($x1) == length($x2); # idem
116 ok 3, $x1 eq $x2;
117 ok 4, $x1 eq $x3;
135 ok 5, ($x1 ne $x2) || ($x1 ne $x3);
143 ok 6, $$hash{''}[0] == \$$hash{a};
146 ok 7, $$cloned{''}[0] == \$$cloned{a};
149 ok 8, $$cloned{''}[0] == \$$cloned{a};