[perl5.git] / dist / Time-HiRes / t / time.t

use strict;

use Test::More tests => 2;
BEGIN { push @INC, '.' }
use t::Watchdog;

BEGIN { require_ok "Time::HiRes"; }

SKIP: {
    skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday;
    my ($s, $n, $i) = (0);
    for $i (1 .. 100) {
	$s += Time::HiRes::time() - CORE::time();
	$n++;
    }
    # $s should be, at worst, equal to $n
    # (CORE::time() may be rounding down, up, or closest),
    # but allow 10% of slop.
    ok abs($s) / $n <= 1.10
	or print("# Time::HiRes::time() not close to CORE::time()\n");
    printf("# s = $s, n = $n, s/n = %s\n", abs($s)/$n);
}

1;
Commit	Line	Data
90e44bf6 Z	1	use strict;
90e44bf6 Z	2
c4a535af	3	use Test::More tests => 2;
465db51d	4	BEGIN { push @INC, '.' }
90e44bf6 Z	5	use t::Watchdog;
	6
	7	BEGIN { require_ok "Time::HiRes"; }
	8
	9	SKIP: {
	10	skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday;
	11	my ($s, $n, $i) = (0);
	12	for $i (1 .. 100) {
	13	$s += Time::HiRes::time() - CORE::time();
	14	$n++;
	15	}
	16	# $s should be, at worst, equal to $n
	17	# (CORE::time() may be rounding down, up, or closest),
	18	# but allow 10% of slop.
	19	ok abs($s) / $n <= 1.10
c4a535af SH	20	or print("# Time::HiRes::time() not close to CORE::time()\n");
c4a535af SH	21	printf("# s = $s, n = $n, s/n = %s\n", abs($s)/$n);
90e44bf6 Z	22	}
	23
	24	1;