Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
echo.t	759 B	-rw-r--r--
group.t	571 B	-rw-r--r--
idle2.t	1.2 KB	-rw-r--r--
msg.pm	1016 B	-rw-r--r--
perlqt.t	2.45 KB	-rw-r--r--
process.pm	1.59 KB	-rw-r--r--
queue_pending.t	792 B	-rw-r--r--
rand_interval.t	323 B	-rw-r--r--
readline.t	2.28 KB	-rw-r--r--
repeat.t	1005 B	-rw-r--r--
semaphore.pm	1.28 KB	-rw-r--r--

Code Editor : idle2.t

# idle daydreams -*-perl-*-

# This test is too sensitive to slight variations in timing
# to serve as part of the test suite.

BEGIN {
    eval {
	require Time::HiRes;
	Time::HiRes->VERSION(1.20);
    };
    if ($@) {
	print "1..0\n";
	print "ok 1 # skipped; requires Time::HiRes 1.20\n";
	exit;
    }
}

use Test; plan tests => 5;
use Event qw(loop unloop time all_events one_event);

# $Event::Eval = 1;
# $Event::DebugLevel = 4;
$Event::DIED = \&Event::verbose_exception_handler;

#----------- complex idle events; fuzzy timers

my ($cnt,$min,$max,$sum) = (0)x4;
my $prev;
$min = 100;
my $Min = .01;
my $Max = .2;
Event->idle(min => $Min, max => $Max, desc => "*IDLE*TEST*",
	    cb => sub {
		my $now = time;
		if (!$prev) { $prev = time; return }
		my $d = $now - $prev;
		$prev = $now;
		$sum += $d;
		$min = $d if $d < $min;
		$max = $d if $d > $max;
		unloop('done') if ++$cnt > 10;
	    });
my $sleeps=0;
Event->idle(repeat => 1, cb => sub { Event::sleep $Min; ++$sleeps });

Event::sleep .1; # try to let CPU settle
loop();

my $epsilon = .05;
ok $sleeps > 1; #did we test anything?
ok $min >= $Min-$epsilon;
ok $max < $Max+$epsilon;   # fails without high resolution clock XXX
ok $sum/$cnt >= $min;
ok $sum/$cnt <= $max;

${this.title}

Code Editor : idle2.t