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

Comparing AnyEvent-Fork/t/04_tofrom.t (file contents):
Revision 1.1 by root, Fri Apr 19 10:51:41 2013 UTC vs.
Revision 1.2 by root, Fri Apr 19 12:56:53 2013 UTC

1BEGIN { $| = 1; print "1..18\n"; } 1BEGIN { $| = 1; print "1..18\n"; }
2
3BEGIN {
4 $ENV{PERL_ANYEVENT_MODEL} = "Perl"; # work around bugs in win32 perls
5}
2 6
3use AnyEvent::Fork; 7use AnyEvent::Fork;
4 8
5print "ok 1\n"; 9print "ok 1\n";
6 10
… …
33 use AnyEvent::Fork; 37 use AnyEvent::Fork;
34 38
35 my $to1 = new_from_fh AnyEvent::Fork $arg[0]; $to1->send_fh ($arg[1]); $to1->eval ($_[0]); 39 my $to1 = new_from_fh AnyEvent::Fork $arg[0]; $to1->send_fh ($arg[1]); $to1->eval ($_[0]);
36 my $to2 = new_from_fh AnyEvent::Fork $arg[2]; $to2->send_fh ($arg[3]); $to2->eval ($_[1]); 40 my $to2 = new_from_fh AnyEvent::Fork $arg[2]; $to2->send_fh ($arg[3]); $to2->eval ($_[1]);
37 41
38 $to1->to_fh (my $cv1 = AE::cv); readline $cv1->recv; 42 $to1->to_fh (my $cv1 = AE::cv); $cv1->recv;
39 $to2->to_fh (my $cv2 = AE::cv); readline $cv2->recv; 43 $to2->to_fh (my $cv2 = AE::cv); $cv2->recv;
40',' 44','
41 syswrite $arg[0], "172"; 45 syswrite $arg[0], "172";
42',' 46','
43 syswrite $arg[0], "174"; 47 syswrite $arg[0], "174";
48 END { warn "hi\n" }
44'); 49');
45 50
46print "ok 13\n"; 51print "ok 13\n";
47 52
48do { $proc->to_fh (my $cv = AE::cv); $cv->recv }; 53do { $proc->to_fh (my $cv = AE::cv); $cv->recv };

Diff Legend

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