X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_uri_for.t;fp=t%2Funit_core_uri_for.t;h=bd0690b554ee40a18b835e355fe62217ece89b87;hp=f46e2fdb202a90271ce167279dfea78013afe7c2;hb=5789a3d8e83afb0a0232d4f2a2617353497cd976;hpb=e669e88a53601a58917a17f6bec1822262225ab6 diff --git a/t/unit_core_uri_for.t b/t/unit_core_uri_for.t index f46e2fd..bd0690b 100644 --- a/t/unit_core_uri_for.t +++ b/t/unit_core_uri_for.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 8; +use Test::More tests => 9; use Test::MockObject; use URI; @@ -42,6 +42,13 @@ is( 'URI for undef action with query params' ); +# test with utf-8 +is( + Catalyst::uri_for( $context, 'quux', { param1 => "\x{2620}" } )->as_string, + 'http://127.0.0.1/foo/yada/quux?param1=%E2%98%A0', + 'URI for undef action with query params in unicode' +); + $request->mock( 'base', sub { URI->new('http://localhost:3000/') } ); $request->mock( 'match', sub { 'orderentry/contract' } ); is( @@ -60,3 +67,4 @@ is( is( Catalyst::uri_for( $context, '/bar/baz' )->as_string, 'http://127.0.0.1/bar/baz', 'URI with no base or match' ); } +