File: bored.t

package info (click to toggle)
libevent-perl 1.04-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 712 kB
  • ctags: 588
  • sloc: ansic: 3,017; perl: 1,128; makefile: 46
file content (24 lines) | stat: -rw-r--r-- 410 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
# -*- perl -*-
use Test; plan test => 5;
use Event;

# $Event::DebugLevel = 3;

my $really_bored;
my $w;
$w = Event->timer(after => .5, parked => 1);
ok !defined $w->cb;
eval { $w->now() };
ok $@ =~ /callback unset/;
$w->cb(sub {
	   if (!$really_bored) {
	       $w->again;
	       $really_bored='yes';
	   } else {
	       ok 1;
	   }
       });
ok ref $w->cb, 'CODE';
$w->start;

ok !defined Event::loop();