X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_uri_for.t;h=a54150890c262a3e807b54ba2e0e6c9aa1c19c36;hb=fc036112266c785163c051608821d66f42757ed3;hp=3318192d1e683b21cddf1dcdffd81dfbc6efe5be;hpb=0ee04045a413235cb1474efcb490039691ef78e6;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/unit_core_uri_for.t b/t/aggregate/unit_core_uri_for.t index 3318192..a541508 100644 --- a/t/aggregate/unit_core_uri_for.t +++ b/t/aggregate/unit_core_uri_for.t @@ -59,14 +59,23 @@ is( 'Plus is not encoded' ); -TODO: { - local $TODO = 'broken by 5.7008'; - is( - Catalyst::uri_for( $context, '/bar#fragment', { param1 => 'value1' } )->as_string, - 'http://127.0.0.1/foo/bar?param1=value1#fragment', - 'URI for path with fragment and query params' - ); -} +is( + Catalyst::uri_for( $context, '/bar#fragment', { param1 => 'value1' } )->as_string, + 'http://127.0.0.1/foo/bar?param1=value1#fragment', + 'URI for path with fragment and query params 1' +); + +is( + Catalyst::uri_for( $context, '/bar#fragment^%$', { param1 => 'value1' } )->as_string, + 'http://127.0.0.1/foo/bar?param1=value1#fragment^%$', + 'URI for path with fragment and query params 3' +); + +is( + Catalyst::uri_for( $context, '/foo#bar/baz', { param1 => 'value1' } )->as_string, + 'http://127.0.0.1/foo/foo?param1=value1#bar/baz', + 'URI for path with fragment and query params 3' +); # test with utf-8 is(