X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_uri_for_multibytechar.t;h=b0ccdc509dee8eb45beba187020d2e41eada02f1;hb=f04fdedae056296d0fa97fbdcaa85b9811ca6a5b;hp=0a569d60c883d277ef1abd9c33608b7aa6948f8c;hpb=0ce485e9e71b37bbe5a35d09f795535e9e231394;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_uri_for_multibytechar.t b/t/unit_core_uri_for_multibytechar.t index 0a569d6..b0ccdc5 100644 --- a/t/unit_core_uri_for_multibytechar.t +++ b/t/unit_core_uri_for_multibytechar.t @@ -5,9 +5,7 @@ use FindBin; use File::Spec; use lib File::Spec->catfile($FindBin::Bin, 'lib'); -use Test::More; - -plan tests => 3; +use Test::More tests => 5; use_ok('TestApp'); @@ -15,6 +13,7 @@ my $base = 'http://127.0.0.1'; my $request = Catalyst::Request->new({ base => URI->new($base), + uri => URI->new("$base/"), }); my $context = TestApp->new({ @@ -28,10 +27,10 @@ $uri_with_multibyte->query_form( name => '村瀬大輔', ); - # multibyte with utf8 bytes -is($context->uri_for('/', { name => '村瀬大輔' }), $uri_with_multibyte, 'uri with utf8 bytes query'); - +is($context->uri_for('/', { name => '村瀬大輔' }), $uri_with_multibyte, 'uri_for with utf8 bytes query'); +is($context->req->uri_with({ name => '村瀬大輔' }), $uri_with_multibyte, 'uri_with with utf8 bytes query'); # multibyte with utf8 string -is($context->uri_for('/', { name => "\x{6751}\x{702c}\x{5927}\x{8f14}" }), $uri_with_multibyte, 'uri with utf8 string query'); +is($context->uri_for('/', { name => "\x{6751}\x{702c}\x{5927}\x{8f14}" }), $uri_with_multibyte, 'uri_for with utf8 string query'); +is($context->req->uri_with({ name => "\x{6751}\x{702c}\x{5927}\x{8f14}" }), $uri_with_multibyte, 'uri_with with utf8 string query');