Lines Matching defs:ok
14 sub ok ($$) {
15 my($ok, $name) = @_;
18 print $ok ? "ok $test - $name\n" : "not ok $test - $name\n";
20 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
23 return $ok;
33 ok($now > $beg && $now - $beg < 10, 'very basic time test');
42 ok($i >= 200000, 'very basic times test');
48 ok($sec != $xsec && $mday && $year, 'localtime() list context');
50 ok(localtime() =~ /^(Sun|Mon|Tue|Wed|Thu|Fri|Sat)[ ]
62 ok($sec != $xsec && $mday && $year, 'gmtime() list context');
65 ok( grep({ $day_diff == $_ } (0, 1, -1, 364, 365, -364, -365)),
70 ok(gmtime() =~ /^(Sun|Mon|Tue|Wed|Thu|Fri|Sat)[ ]