comparison stream_error_log.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 abf5f3197967
children 22bade4c7e12
comparison
equal deleted inserted replaced
564:a1c93746570d 565:ff49e1c00b35
168 my ($data, $peer) = @_; 168 my ($data, $peer) = @_;
169 169
170 $peer = '127.0.0.1:8080' unless defined $peer; 170 $peer = '127.0.0.1:8080' unless defined $peer;
171 my $s = stream_connect($peer); 171 my $s = stream_connect($peer);
172 stream_write($s, $data); 172 stream_write($s, $data);
173 my $r = stream_read($s); 173
174 174 $data = '';
175 $s->close; 175 while (my $buf = stream_read($s)) {
176 return $r; 176 $data .= $buf;
177 }
178 return $data;
177 } 179 }
178 180
179 sub stream_connect { 181 sub stream_connect {
180 my $peer = shift; 182 my $peer = shift;
181 my $s = IO::Socket::INET->new( 183 my $s = IO::Socket::INET->new(