diff http_host.t @ 224:ba992cfdc606

Tests: remove TODO from tests which pass in 1.2.x.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 03 Jun 2012 14:47:10 +0400
parents a7cc4371f4ad
children d5bf5942a8b2
line wrap: on
line diff
--- a/http_host.t
+++ b/http_host.t
@@ -67,14 +67,9 @@ is(http_absolute_path('www.abcd-ef.g02.x
 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',
@@ -97,20 +92,11 @@ is(http_absolute_path('123.49.0.78'), '1
 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]',
@@ -118,21 +104,14 @@ is(http_absolute_path('[abcd::ef98:0:765
 
 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/,
@@ -174,9 +153,6 @@ like(http_absolute_path('[ab..cd::ef98:0
 # unreserved    = ALPHA / DIGIT / "-" / "." / "_" / "~"
 #
 
-TODO: {
-local $TODO = 'IPvFuture';
-
 is(http_host_header(
 	'[v0123456789aBcDeF.!$&\'()*+,;=-._~AbCdEfGhIjKlMnOpQrStUvWxYz'
 	. '0123456789:]'),
@@ -191,16 +167,9 @@ is(http_absolute_path(
 	. '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 {