#!./perl -w

# These tests may occationally fail due to small timing differences.

use Test; plan test => 8;
{
    local $SIG{__WARN__} = sub {
	if ($_[0] =~ /Time::HiRes/) {
	    ok 1;
	} else {
	    warn $_[0];
	}
    };
    require Time::Warp;
}
Time::Warp->import(qw(time to scale));
ok 1;
ok &scale, 1;

scale(2);
ok &scale, 2;
my $now = &time;
sleep 2;
ok(&time - $now, 4);

to(CORE::time);
ok(&time - CORE::time, 0);

scale(scale() * 2);
ok(&time - CORE::time, 0);

Time::Warp::reset(); to(&time + 5);
ok(&time - CORE::time, 5);