comparison realip.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 a4e46d78ea6d
children dc2f8aac0553
comparison
equal deleted inserted replaced
316:f36c3532a117 317:a9621dbbd0d4
75 like(http_xff('/1', '192.0.2.1, 10.0.1.1, 127.0.0.1'), 75 like(http_xff('/1', '192.0.2.1, 10.0.1.1, 127.0.0.1'),
76 qr/^X-IP: 127.0.0.1/m, 'realip recursive off'); 76 qr/^X-IP: 127.0.0.1/m, 'realip recursive off');
77 like(http_xff('/2', '10.0.1.1, 192.0.2.1, 127.0.0.1'), 77 like(http_xff('/2', '10.0.1.1, 192.0.2.1, 127.0.0.1'),
78 qr/^X-IP: 192.0.2.1/m, 'realip recursive on'); 78 qr/^X-IP: 192.0.2.1/m, 'realip recursive on');
79 79
80 TODO: {
81
82 local $TODO = 'not yet' unless $t->has_version('1.3.14');
83
84 like(http(<<EOF), qr/^X-IP: 10.0.1.1/m, 'realip multi xff recursive off'); 80 like(http(<<EOF), qr/^X-IP: 10.0.1.1/m, 'realip multi xff recursive off');
85 GET /1 HTTP/1.0 81 GET /1 HTTP/1.0
86 Host: localhost 82 Host: localhost
87 X-Forwarded-For: 192.0.2.1 83 X-Forwarded-For: 192.0.2.1
88 X-Forwarded-For: 127.0.0.1, 10.0.1.1 84 X-Forwarded-For: 127.0.0.1, 10.0.1.1
96 X-Forwarded-For: 192.0.2.1 92 X-Forwarded-For: 192.0.2.1
97 X-Forwarded-For: 127.0.0.1 93 X-Forwarded-For: 127.0.0.1
98 94
99 EOF 95 EOF
100 96
101 }
102
103 ############################################################################### 97 ###############################################################################
104 98
105 sub http_xff { 99 sub http_xff {
106 my ($uri, $xff) = @_; 100 my ($uri, $xff) = @_;
107 return http(<<EOF); 101 return http(<<EOF);