Mercurial > hg > nginx-tests

comparison stream_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 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(