view release on metacpan or  search on metacpan

t/001-timer.t  view on Meta::CPAN

#!/usr/bin/perl

use Class::Easy;

use Test::More qw(no_plan);

use Data::Dumper;

# without Class::Easy::DEBUG
my $t = timer ('sleep one second');

ok ! defined $t->[0];

ok 0 == $t->lap ('one more second');

ok 0 == $t->end;

ok 0 == $t->total;

# with Class::Easy::DEBUG
logger ('default')->appender (undef);

$t = timer ('sleep one second');

ok $t->[0] eq 'sleep one second';

sleep (1);

my $interval = $t->lap ('one more second');

ok $interval > 0;

warn "your system have bad timer: 1s = ${interval}s"
	if $interval < 1;

sleep (1);

$interval = $t->end;

ok $interval > 0;

warn "your system have bad timer: 1s = ${interval}s"
	if $interval < 1;

$interval = $t->total;

ok $interval > 0;

warn "your system have bad timer: 1s = ${interval}s"
	if $interval < 2;


1;