Mercurial > hg > nginx-tests
comparison stream_upstream.t @ 565:ff49e1c00b35
Tests: in stream tests, try to read all the data where appropriate.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Wed, 29 Apr 2015 14:58:27 +0300 |
parents | cd3e32d9997e |
children | 824754da4afc |
comparison
equal
deleted
inserted
replaced
564:a1c93746570d | 565:ff49e1c00b35 |
---|---|
117 sub stream_get { | 117 sub stream_get { |
118 my ($data, $peer) = @_; | 118 my ($data, $peer) = @_; |
119 | 119 |
120 my $s = stream_connect($peer); | 120 my $s = stream_connect($peer); |
121 stream_write($s, $data); | 121 stream_write($s, $data); |
122 my $r = stream_read($s); | 122 |
123 | 123 $data = ''; |
124 $s->close; | 124 while (my $buf = stream_read($s)) { |
125 return $r; | 125 $data .= $buf; |
126 } | |
127 return $data; | |
126 } | 128 } |
127 | 129 |
128 sub stream_connect { | 130 sub stream_connect { |
129 my $peer = shift; | 131 my $peer = shift; |
130 my $s = IO::Socket::INET->new( | 132 my $s = IO::Socket::INET->new( |