Mercurial > hg > nginx-tests
comparison stream_proxy_next_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 | ca54b445d982 |
comparison
equal
deleted
inserted
replaced
564:a1c93746570d | 565:ff49e1c00b35 |
---|---|
83 sub stream_get { | 83 sub stream_get { |
84 my ($data, $peer) = @_; | 84 my ($data, $peer) = @_; |
85 | 85 |
86 my $s = stream_connect($peer); | 86 my $s = stream_connect($peer); |
87 stream_write($s, $data); | 87 stream_write($s, $data); |
88 my $r = stream_read($s); | |
89 | 88 |
90 $s->close; | 89 $data = ''; |
91 return $r; | 90 while (my $buf = stream_read($s)) { |
91 $data .= $buf; | |
92 } | |
93 return $data; | |
92 } | 94 } |
93 | 95 |
94 sub stream_connect { | 96 sub stream_connect { |
95 my $peer = shift; | 97 my $peer = shift; |
96 my $s = IO::Socket::INET->new( | 98 my $s = IO::Socket::INET->new( |