Mercurial > hg > nginx-tests
changeset 583:5276aceb32a6
Tests: style, no functional changes.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Wed, 20 May 2015 14:42:51 +0300 |
parents | dc97097100a5 |
children | 7d6db4ac6ab0 |
files | proxy_upgrade.t |
diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/proxy_upgrade.t Tue May 19 13:25:56 2015 +0300 +++ b/proxy_upgrade.t Wed May 20 14:42:51 2015 +0300 @@ -2,9 +2,9 @@ # (C) Maxim Dounin -# Tests for http proxy upgrade support. In contrast to proxy_websocket.t -# this test doesn't try to use binary WebSocket protocol, but uses simple -# plain text protocol instead. +# Tests for http proxy upgrade support. +# In contrast to proxy_websocket.t, this test doesn't try to use binary +# WebSocket protocol, but uses simple plain text protocol instead. ############################################################################### @@ -15,7 +15,6 @@ use IO::Poll; use IO::Select; -use IO::Socket::INET; use Socket qw/ CRLF /; BEGIN { use FindBin; chdir($FindBin::Bin); } @@ -97,10 +96,11 @@ } } +undef $s; + # establish connection with some pipelined data # and make sure they are correctly passed upstream -undef $s; $s = upgrade_connect(message => "foo"); ok($s, "handshake pipelined"); @@ -113,10 +113,11 @@ is(upgrade_read($s), "bar", "next to pipelined"); } +undef $s; + # connection should not be upgraded unless upgrade was actually # requested and allowed by configuration -undef $s; $s = upgrade_connect(noheader => 1); ok(!$s, "handshake noupgrade"); @@ -127,7 +128,7 @@ my $s = IO::Socket::INET->new( Proto => 'tcp', - PeerAddr => '127.0.0.1:8080' + PeerAddr => '127.0.0.1:8080', ) or die "Can't connect to nginx: $!\n";