Mercurial > hg > nginx-tests

comparison stream_proxy_next_upstream.t @ 565:ff49e1c00b35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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(