ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/t/08_async.t
Revision: 1.1
Committed: Fri Feb 1 13:22:48 2008 UTC (16 years, 4 months ago) by root
Content type: application/x-troff
Branch: MAIN
Log Message:
testsuite

File Contents

# Content
1 BEGIN { $| = 1; print "1..6\n"; }
2
3 no warnings;
4 use strict;
5
6 use EV;
7
8 my ($a1, $a2, $a3);
9
10 $a3 = EV::async sub {
11 print "not ok 1\n";
12 };
13 $a2 = EV::async sub {
14 print "ok 4\n";
15 $a1->cb (sub {
16 print "ok 5\n";
17 EV::unloop;
18 });
19 $a1->send;
20 };
21 $a1 = EV::async sub {
22 print "ok 3\n";
23 $a2->send;
24 };
25
26 print "ok 1\n";
27 $a1->send;
28 $a1->send;
29 $a1->send;
30 print "ok 2\n";
31 EV::loop;
32 print "ok 6\n";