# HG changeset patch
# User Valentin Bartenev <ne@vbart.ru>
# Date 1322235392 -10800
# Node ID e43af26ac6ea38cae13e5cdf9c4a3a1b666b4414
# Parent  23f81eb0a817923ae45c4cbdcc486b9685d64088
Tests: host parsing tests.

diff --git a/http_host.t b/http_host.t
new file mode 100644
--- /dev/null
+++ b/http_host.t
@@ -0,0 +1,224 @@
+#!/usr/bin/perl
+
+# (C) Maxim Dounin
+# (C) Valentin Bartenev
+
+# Tests for host parsing in requests.
+
+###############################################################################
+
+use warnings;
+use strict;
+
+use Test::More;
+
+BEGIN { use FindBin; chdir($FindBin::Bin); }
+
+use lib 'lib';
+use Test::Nginx;
+
+###############################################################################
+
+select STDERR; $| = 1;
+select STDOUT; $| = 1;
+
+my $t = Test::Nginx->new()->has(qw/http rewrite/)->plan(35);
+
+$t->write_file_expand('nginx.conf', <<'EOF');
+
+%%TEST_GLOBALS%%
+
+daemon off;
+
+events {
+}
+
+http {
+    %%TEST_GLOBALS_HTTP%%
+
+    server {
+        listen  127.0.0.1:8080;
+        server_name  localhost;
+
+        location / {
+            return  200  $host;
+        }
+    }
+}
+
+EOF
+
+$t->run();
+
+###############################################################################
+
+
+is(http_host_header('www.abcd-ef.g02.xyz'), 'www.abcd-ef.g02.xyz',
+	'domain w/o port (host header)');
+is(http_host_header('abcd-ef.g02.xyz:8080'), 'abcd-ef.g02.xyz',
+	'domain w/port (host header)');
+
+is(http_absolute_path('abcd-ef.g02.xyz'), 'abcd-ef.g02.xyz',
+	'domain w/o port (absolute request)');
+is(http_absolute_path('www.abcd-ef.g02.xyz:10'), 'www.abcd-ef.g02.xyz',
+	'domain w/port (absolute request)');
+
+
+is(http_host_header('www.abcd-ef.g02.xyz.'), 'www.abcd-ef.g02.xyz',
+	'domain w/ ending dot w/o port (host header)');
+
+TODO:{
+local $TODO = 'fix this';
+
+is(http_host_header('abcd-ef.g02.xyz.:88'), 'abcd-ef.g02.xyz',
+	'domain w/ ending dot w/port (host header)');
+
+}
+
+is(http_absolute_path('www.abcd-ef.g02.xyz.'), 'www.abcd-ef.g02.xyz',
+	'domain w/ ending dot w/o port (absolute request)');
+is(http_absolute_path('abcd-ef.g02.xyz.:2'), 'abcd-ef.g02.xyz',
+	'domain w/ ending dot w/port (absolute request)');
+
+
+is(http_absolute_path('AbC-d93.0.34ZhGt-s.nk.Ru'), 'abc-d93.0.34zhgt-s.nk.ru',
+	'mixed case domain w/o port (absolute request)');
+is(http_host_header('AbC-d93.0.34ZhGt-s.nk.Ru:88'), 'abc-d93.0.34zhgt-s.nk.ru',
+	'mixed case domain w/port (host header)');
+
+
+is(http_host_header('123.40.56.78'), '123.40.56.78',
+	'ipv4 w/o port (host header)');
+is(http_host_header('123.49.0.78:987'), '123.49.0.78',
+	'ipv4 w/port (host header)');
+
+is(http_absolute_path('123.49.0.78'), '123.49.0.78',
+	'ipv4 w/o port (absolute request)');
+is(http_absolute_path('123.40.56.78:123'), '123.40.56.78',
+	'ipv4 w/port (absolute request)');
+
+TODO: {
+local $TODO = 'ipv6 literals';
+
+is(http_host_header('[abcd::ef98:0:7654:321]'), '[abcd::ef98:0:7654:321]',
+	'ipv6 literal w/o port (host header)');
+
+}
+
+is(http_host_header('[abcd::ef98:0:7654:321]:80'), '[abcd::ef98:0:7654:321]',
+	'ipv6 literal w/port (host header)');
+	
+TODO: {
+local $TODO = 'ipv6 literals';
+
+is(http_absolute_path('[abcd::ef98:0:7654:321]'), '[abcd::ef98:0:7654:321]',
+	'ipv6 literal w/o port (absolute request)');
+is(http_absolute_path('[abcd::ef98:0:7654:321]:5'), '[abcd::ef98:0:7654:321]',
+	'ipv6 literal w/port (absolute request)');
+
+is(http_host_header('[::ffff:12.30.67.89]'), '[::ffff:12.30.67.89]',
+	'ipv4-mapped ipv6 w/o port (host header)');
+}
+
+is(http_host_header('[::123.45.67.89]:4321'), '[::123.45.67.89]',
+	'ipv4-mapped ipv6 w/port (host header)');
+
+TODO: {
+local $TODO = 'ipv6 literals';
+
+is(http_absolute_path('[::123.45.67.89]'), '[::123.45.67.89]',
+	'ipv4-mapped ipv6 w/o port (absolute request)');
+is(http_absolute_path('[::ffff:12.30.67.89]:4321'), '[::ffff:12.30.67.89]',
+	'ipv4-mapped ipv6 w/port (absolute request)');
+
+}
+
+like(http_host_header('example.com/\:552', 1), qr/400/,
+	'domain w/ path separators (host header)');
+like(http_absolute_path('\e/xample.com', 1), qr/400/,
+	'domain w/ path separators (absolute request)');
+
+like(http_host_header('..examp-LE.com', 1), qr/400/,
+	'domain w/ double dot (host header)');
+like(http_absolute_path('com.exa-m.45..:', 1), qr/400/,
+	'domain w/ double dot (absolute request)');
+
+
+like(http_host_header('[abcd::e\f98:0/:7654:321]', 1), qr/400/,
+	'ipv6 literal w/ path separators (host header)');
+like(http_absolute_path('[abcd\::ef98:0:7654:321/]:12', 1), qr/400/,
+	'ipv6 literal w/ path separators (absolute request)');
+
+like(http_host_header('[abcd::ef98:0:7654:321]..:98', 1), qr/400/,
+	'ipv6 literal w/ double dot (host header)');
+like(http_absolute_path('[ab..cd::ef98:0:7654:321]', 1), qr/400/,
+	'ipv6 literal w/ double dot (absolute request)');
+
+
+like(http_host_header('[abcd::ef98:0:7654:321]..:98', 1), qr/400/,
+	'ipv6 literal w/ double dot (host header)');
+like(http_absolute_path('[ab..cd::ef98:0:7654:321]', 1), qr/400/,
+	'ipv6 literal w/ double dot (absolute request)');
+
+
+# As per RFC 3986,
+# http://tools.ietf.org/html/rfc3986#section-3.2.2
+#
+# IP-literal    = "[" ( IPv6address / IPvFuture  ) "]"
+#
+# IPvFuture     = "v" 1*HEXDIG "." 1*( unreserved / sub-delims / ":" )
+#
+# sub-delims    = "!" / "$" / "&" / "'" / "(" / ")"
+#               / "*" / "+" / "," / ";" / "="
+#
+# unreserved    = ALPHA / DIGIT / "-" / "." / "_" / "~"
+#
+
+TODO: {
+local $TODO = 'IPvFuture';
+
+is(http_host_header(
+	'[v0123456789aBcDeF.!$&\'()*+,;=-._~AbCdEfGhIjKlMnOpQrStUvWxYz'
+	. '0123456789:]'),
+	'[v0123456789abcdef.!$&\'()*+,;=-._~abcdefghijklmnopqrstuvwxyz'
+	. '0123456789:]',
+	'IPvFuture all symbols (host header)');
+
+is(http_absolute_path(
+	'[v0123456789aBcDeF.!$&\'()*+,;=-._~AbCdEfGhIjKlMnOpQrStUvWxYz'
+	. '0123456789:]'),
+	'[v0123456789abcdef.!$&\'()*+,;=-._~abcdefghijklmnopqrstuvwxyz'
+	. '0123456789:]',
+	'IPvFuture all symbols (absolute request)');
+
+}
+
+TODO: {
+local $TODO = 'or not TODO';
+
+is(http_host_header('123.40.56.78:9000:80'), '123.40.56.78',
+	'double port hack');
+
+}
+
+###############################################################################
+
+sub http_host_header {
+	my ($host, $all) = @_;
+	my ($r) = http(<<EOF);
+GET / HTTP/1.0
+Host: $host
+
+EOF
+	return ($all ? $r : Test::Nginx::http_content($r));
+}
+
+sub http_absolute_path {
+	my ($host, $all) = @_;
+	my ($r) = http(<<EOF);
+GET http://$host/ HTTP/1.0
+Host: localhost
+
+EOF
+	return ($all ? $r : Test::Nginx::http_content($r));
+}