#!perl -T

use strict;
use warnings;
use Config;
use Test::More tests => 16;
use Test::Exception;

use POSIX::RT::Clock;
use Time::HiRes 'alarm';

alarm 5;

my $clock;
lives_ok { $clock = POSIX::RT::Clock->new('realtime') } 'Can be created';

my $time = $clock->get_time();

ok $time, 'gettime works';

ok $clock + 0, 'Can be used as a number';

my %clocks = map { ( $_ => 1 ) } POSIX::RT::Clock->get_clocks;

ok scalar(keys %clocks), 'Has clocks';

note("Supported clocks are: ". join ', ', keys %clocks);

is $clocks{realtime}, 1, 'Realtime clock is supported';

ok $clock->get_resolution, 'Can get resolution';

my $monotonic;
SKIP: {
	skip 'No monotonic clock', 1 if not $clocks{monotonic};
	$monotonic = POSIX::RT::Clock->new('monotonic');
	lives_ok { $monotonic->get_time() } "Monotonic clock seems to work";
}

SKIP: {
	skip 'Doesn\'t have cpuclock', 2 if not POSIX::RT::Clock->can('get_cpuclock');
	lives_ok { POSIX::RT::Clock->get_cpuclock($$) } 'Has cpuclock';
	skip 'Doesn\'t have threads', 1 if not $Config{useithreads};
	require threads;
	lives_ok { POSIX::RT::Clock->get_cpuclock(threads->self) } 'Has cpuclock';
}

SKIP: {
	skip 'Can\'t sleep, poor bastard', 7 if not $clock->can('sleep');

	my $sleeper = $clocks{monotonic} ? $monotonic : $clock;

	$time = $sleeper->get_time;
	my $slept = $sleeper->sleep(0.5);
	is($slept, 0, 'Slept all the time');

	cmp_ok($sleeper->get_time, '>', $time + 0.5, '0.5 seconds expired');
	$time = $sleeper->get_time;

	is($sleeper->sleep($sleeper->get_time() + 0.5, 1), 0, 'Absolute sleep worked too');

	local $SIG{ALRM} = sub { cmp_ok($sleeper->get_time, '>', $time + 0.2, 'sighandler called during sleep_deeply')};
	alarm 0.2;
	cmp_ok($sleeper->sleep(0.5), '>', 0.2, 'Sleeper interrupted');

	alarm 0.2;
	is($sleeper->sleep_deeply(0.5), 0, 'Deep sleeper continued');
}