# HG changeset patch # User Sergey Kandaurov # Date 1377802032 -14400 # Node ID 290d539efcb4fe450ee7158f919f8fc8307e1b29 # Parent dacd55fa2cde0e50880a60d118434f4acb97c829 Tests: referer TODO adjusted. diff --git a/referer.t b/referer.t --- a/referer.t +++ b/referer.t @@ -139,7 +139,7 @@ ok(!valid('/wc', 'http://example.' . 'a' ok(valid('/long', 'http://' . 'a' x 255), 'long hostname 255'); TODO: { -local $TODO = 'not yet'; +local $TODO = 'not yet' unless $t->has_version('1.5.5'); ok(valid('/long', 'http://' . 'a' x 256), 'long hostname 256'); @@ -177,7 +177,7 @@ ok(valid('/sn', 'http://localhost/uri'), ok(valid('/sn', 'http://foobar'), 'server_names regex'); TODO: { -local $TODO = 'not yet'; +local $TODO = 'not yet' unless $t->has_version('1.5.5'); ok(valid('/sn', 'http://foobAr'), 'server_names regex caseless'); ok(valid('/sn', 'http://foobAr/uri'), 'server_names regex caseless uri'); @@ -201,7 +201,7 @@ ok(valid('/', 'http://another', 'another # server_name below valid_referers TODO: { -local $TODO = 'not yet'; +local $TODO = 'not yet' unless $t->has_version('1.5.5'); ok(valid('/', 'http://below', 'below'), 'server below');