diff options
Diffstat (limited to 't/common.perl')
| -rw-r--r-- | t/common.perl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/t/common.perl b/t/common.perl index ccc7be46..053a935a 100644 --- a/t/common.perl +++ b/t/common.perl @@ -7,17 +7,6 @@ use strict; use warnings; use IO::Socket::INET; -sub stream_to_string { - my ($res) = @_; - my $body = $res->[2]; - my $str = ''; - while (defined(my $chunk = $body->getline)) { - $str .= $chunk; - } - $body->close; - $str; -} - sub tcp_server () { IO::Socket::INET->new( LocalAddr => '127.0.0.1', |