ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/t/02_once.t
Revision: 1.10
Committed: Sun Jul 19 03:49:04 2009 UTC (14 years, 11 months ago) by root
Content type: application/x-troff
Branch: MAIN
CVS Tags: rel-3_9, rel-3_8
Changes since 1.9: +24 -14 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 BEGIN {
2 if (exists $ENV{AUTOMATED_TESTING}) {
3 print "1..0 # Skipped: Too many broken cpan tester setups.\n";
4 exit;
5 }
6 }
7
8 BEGIN { $| = 1; print "1..30\n"; }
9
10 no warnings;
11 use strict;
12 use Socket;
13
14 use EV;
15
16 for my $it ("", 1, 2) {
17 for my $i (3..5) {
18 EV::once undef, 0, ($i - 3) * 0.1 + 0.2, sub {
19 print $_[0] == EV::TIMEOUT ? "" : "not ", "ok $it$i\n";
20 };
21 }
22
23 socketpair my $s1, my $s2, AF_UNIX, SOCK_STREAM, PF_UNSPEC;
24
25 EV::once $s1, EV::WRITE, 0.1, sub {
26 print $_[0] & EV::WRITE ? "" : "not ", "ok ${it}2\n";
27 };
28
29 print "ok ${it}1\n";
30 EV::loop;
31 print "ok ${it}6\n";
32 EV::signal INT => sub { };
33 print "ok ${it}7\n";
34 EV::async sub { };
35 print "ok ${it}8\n";
36 EV::default_destroy;
37 print "ok ${it}9\n";
38 EV::default_loop;
39 print "ok ", ${it}*10 + 10, "\n";
40 }