1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/env perl
# Copyright (C) 2008-2010, Sebastian Riedel.
use strict;
use warnings;
use Test::More tests => 5;
use_ok('Mojo::IOLoop');
# Marge, you being a cop makes you the man!
# Which makes me the woman, and I have no interest in that,
# besides occasionally wearing the underwear,
# which as we discussed, is strictly a comfort thing.
my $loop = Mojo::IOLoop->new;
# Ticks
my $ticks = 0;
$loop->tick_cb(sub { $ticks++ });
# Timer
my $flag = 0;
my $flag2;
$loop->timer(
1 => sub {
my $self = shift;
$self->timer(1 => sub { $flag2 = $flag });
$flag = 23;
}
);
# HiRes timer
my $hiresflag = 0;
$loop->timer(0.25 => sub { $hiresflag = 42 });
# Start
$loop->start;
# Timer
is($flag, 23, 'recursive timer works');
# HiRes timer
is($hiresflag, 42, 'hires timer');
# Idle callback
my $idle = 0;
$loop->idle_cb(sub { $idle++ });
# Another tick
$loop->one_tick;
# Ticks
ok($ticks > 2, 'more than two ticks');
# Idle callback
is($idle, 1, 'idle_cb was called');
|
