HiRes/t/HiRes.t

12 END {print "not ok 1\n" unless $loaded;}
18 print "ok 1\n";
70 # Another possibility might be to print "ok" if the test completes fine
78     map { print "ok $_ # skipped\n" } @_;
81 sub ok {
84     	print "ok $n\n";
87 	print "not ok $n\n";
97     ok 2, @one == 2, 'gettimeofday returned ', 0+@one, ' args';
98     ok 3, $one[0] > 850_000_000, "@one too small";
103     ok 4, ($two[0] > $one[0] || ($two[0] == $one[0] && $two[1] > $one[1])),
107     ok 5, $f > 850_000_000, "$f too small";
108     ok 6, $f - $two[0] < 2, "$f - $two[0] >= 2";
120     ok 7, $one == $two || $two == $three, "slept too long, $one $two $three";
130 	ok 8, $d > 0.4 && $d < 0.9, "slept $d secs $f to $f2";
137     ok 9, abs($f - 5.4) < 0.001, $f;
146     ok 10, $f < 2, $f;
156     ok 11, $f > 0.4 && $f < 0.9, "slept $f instead of 0.5 secs.";
169     ok 12, $one == $two || $two == $three, "slept too long, $one $two $three";
174     ok 13, 1;
190  ok 14, abs($s) / $n <= 1.0, "Time::HiRes::time() not close to time()";
203 	print "ok $_ # Skip: no gettimeofday or no ualarm or no usleep\n";
208     my ($f, $r, $i, $not, $ok);
212     print "ok 15\n";
234 	    $ok = "Skip: your select() may get restarted by your SIGALRM (or just retry test)";
245 	$ok = $i;
264     print $not ? "not ok 17 # $not\n" : "ok 17 # $ok\n";
273 	print "ok $_ # Skip: no virtual interval timers\n";
290     print "ok 18\n";
302     print "ok 19\n";
321 	print $a < $limit ? "ok 20 # $msg" : "not ok 20 # $msg";
323 	print "ok 20 # Skip: $msg";
334 	print $a < $limit ? "ok 21 # $msg" : "not ok 21 # $msg";
336 	print "ok 21 # Skip: $msg";
341 	print "ok $_ # Skip: no gettimeofday\n";
347     "ok 22\n" : "not ok 22\n";
351     "ok 23\n" : "not ok 23\n";
356 	"ok 24\n" : "not ok 24\n";
360     "ok 25\n" : "not ok 25\n";