ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/t/02_once.t
(Generate patch)

Comparing EV/t/02_once.t (file contents):
Revision 1.9 by root, Wed Apr 15 17:49:27 2009 UTC vs.
Revision 1.10 by root, Sun Jul 19 03:49:04 2009 UTC

… …
3 print "1..0 # Skipped: Too many broken cpan tester setups.\n"; 3 print "1..0 # Skipped: Too many broken cpan tester setups.\n";
4 exit; 4 exit;
5 } 5 }
6} 6}
7 7
8BEGIN { $| = 1; print "1..6\n"; } 8BEGIN { $| = 1; print "1..30\n"; }
9 9
10no warnings; 10no warnings;
11use strict; 11use strict;
12use Socket; 12use Socket;
13 13
14use EV; 14use EV;
15 15
16for my $it ("", 1, 2) {
16for my $i (3..5) { 17 for my $i (3..5) {
17 EV::once undef, 0, ($i - 3) * 0.3 + 0.6, sub { 18 EV::once undef, 0, ($i - 3) * 0.1 + 0.2, sub {
18 print $_[0] == EV::TIMEOUT ? "" : "not ", "ok $i\n"; 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";
19 }; 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";
20} 40}
21
22socketpair my $s1, my $s2, AF_UNIX, SOCK_STREAM, PF_UNSPEC;
23
24EV::once $s1, EV::WRITE, 0.3, sub {
25 print $_[0] & EV::WRITE ? "" : "not ", "ok 2\n";
26};
27
28print "ok 1\n";
29EV::loop;
30print "ok 6\n";

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines