comparison proxy_upgrade.t @ 317:a9621dbbd0d4

Tests: remove TODOs with 1.3.x version checks.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 23 Jul 2013 20:25:05 +0400
parents 3dd8c7acf3ad
children e7dc8f4d0a4b
comparison
equal deleted inserted replaced
316:f36c3532a117 317:a9621dbbd0d4
64 $t->waitforsocket('127.0.0.1:8081') 64 $t->waitforsocket('127.0.0.1:8081')
65 or die "Can't start test backend"; 65 or die "Can't start test backend";
66 66
67 ############################################################################### 67 ###############################################################################
68 68
69 TODO: {
70 local $TODO = 'not yet' unless $t->has_version('1.3.13');
71
72 # establish connection 69 # establish connection
73 70
74 my $s = upgrade_connect(); 71 my $s = upgrade_connect();
75 ok($s, "handshake"); 72 ok($s, "handshake");
76 73
114 111
115 upgrade_write($s, "foo"); 112 upgrade_write($s, "foo");
116 is(upgrade_read($s), "bar", "next to pipelined"); 113 is(upgrade_read($s), "bar", "next to pipelined");
117 } 114 }
118 115
119 }
120
121 # connection should not be upgraded unless upgrade was actually 116 # connection should not be upgraded unless upgrade was actually
122 # requested and allowed by configuration 117 # requested and allowed by configuration
123 118
124 my $s = upgrade_connect(noheader => 1); 119 undef $s;
120 $s = upgrade_connect(noheader => 1);
125 ok(!$s, "handshake noupgrade"); 121 ok(!$s, "handshake noupgrade");
126 122
127 ############################################################################### 123 ###############################################################################
128 124
129 sub upgrade_connect { 125 sub upgrade_connect {