ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-Fork/t/02_template.t
(Generate patch)

Comparing AnyEvent-Fork/t/02_template.t (file contents):
Revision 1.3 by root, Thu Apr 4 04:23:07 2013 UTC vs.
Revision 1.4 by root, Thu Apr 4 20:40:47 2013 UTC

… …
7 7
8BEGIN { $| = 1; print "1..3\n"; } 8BEGIN { $| = 1; print "1..3\n"; }
9 9
10use AnyEvent::Fork::Template; 10use AnyEvent::Fork::Template;
11 11
12print $TEMPLATE ? "" : "not ", "ok 1\n"; 12my $proc = $AnyEvent::Fork::Template;
13 13
14$TEMPLATE->eval ('print "ok 2\n"; exit 0'); 14print $proc ? "" : "not ", "ok 1\n";
15 15
16$proc->eval ('print "ok 2\n"; exit 0');
17
16my $w = AE::io $TEMPLATE->[1], 0, my $cv = AE::cv; 18my $w = AE::io $proc->[1], 0, my $cv = AE::cv;
17$cv->recv; 19$cv->recv;
18 20
19print "ok 3\n"; 21print "ok 3\n";

Diff Legend

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