… | |
… | |
38 | $port = $_[2]; |
38 | $port = $_[2]; |
39 | |
39 | |
40 | 0 |
40 | 0 |
41 | }; |
41 | }; |
42 | |
42 | |
43 | my $clhdl; |
43 | my $clhdl; $clhdl = AnyEvent::Handle->new ( |
44 | my $wc = tcp_connect localhost => $port, sub { |
44 | connect => [localhost => $port], |
45 | my ($fh) = @_ |
45 | on_eof => sub { $cv->broadcast }, |
46 | or die "connect: $!"; |
46 | ); |
47 | |
47 | |
48 | $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast }); |
48 | $clhdl->push_write ("TEST\015\012"); |
|
|
49 | $clhdl->push_read (line => sub { |
|
|
50 | my ($clhdl, $line) = @_; |
49 | |
51 | |
50 | $clhdl->push_write ("TEST\015\012"); |
52 | if ($line eq 'BLABLABLA') { |
51 | $clhdl->push_read (line => sub { |
53 | print "ok 2 - client received response\n"; |
52 | my ($clhdl, $line) = @_; |
54 | } else { |
|
|
55 | print "not ok 2 - client received bad response\n"; |
|
|
56 | } |
53 | |
57 | |
54 | if ($line eq 'BLABLABLA') { |
|
|
55 | print "ok 2 - client received response\n"; |
|
|
56 | } else { |
|
|
57 | print "not ok 2 - client received bad response\n"; |
|
|
58 | } |
|
|
59 | |
|
|
60 | $cv->broadcast; |
58 | $cv->broadcast; |
61 | }); |
|
|
62 | }; |
59 | }); |
63 | |
60 | |
64 | $cv->wait; |
61 | $cv->wait; |