X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_uri_for.t;h=3dd3a69370e04fa488092de1dbc51bd93549bc34;hb=9d04b6857491ce04e79cf93bdd45727e052ad6e6;hp=4018b03d65d41c9853c2142752fc5db4620266f5;hpb=6a99f9e6a9251bcf54eff2156d2548674b0631de;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_uri_for.t b/t/unit_core_uri_for.t index 4018b03..3dd3a69 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 => 18; +use Test::More tests => 20; use URI; use_ok('Catalyst'); @@ -51,6 +51,11 @@ is( Catalyst::uri_for( $context, qw/bar wibble?/, 'with space' )->as_string, 'http://127.0.0.1/foo/yada/bar/wibble%3F/with%20space', 'Space gets encoded' ); +is( + Catalyst::uri_for( $context, '/bar', 'with+plus', { 'also' => 'with+plus' })->as_string, + 'http://127.0.0.1/foo/bar/with+plus?also=with%2Bplus', + 'Plus is not encoded' +); # test with utf-8 is( @@ -118,12 +123,23 @@ TODO: { 'http://127.0.0.1/%21/%2A/%27/%2B/%29/%3B/%3A/%40/%26/%3D/%24/%2C/%2F/%3F/%25/%23/%5B/%5D', 'rfc 3986 reserved characters' ); -} -# jshirley bug t0m fucked in r10097 -is( - Catalyst::uri_for( $context, qw|{1} {2}| )->as_string, - 'http://127.0.0.1/{1}/{2}', - 'not-escaping unreserved characters' -); + # jshirley bug - why the hell does only one of these get encoded + # has been like this forever however. + is( + Catalyst::uri_for( $context, qw|{1} {2}| )->as_string, + 'http://127.0.0.1/{1}/{2}', + 'not-escaping unreserved characters' + ); +} +# make sure caller's query parameter hash isn't messed up +{ + my $query_params_base = {test => "one two", + bar => ["foo baz", "bar"]}; + my $query_params_test = {test => "one two", + bar => ["foo baz", "bar"]}; + Catalyst::uri_for($context, '/bar/baz', $query_params_test); + is_deeply($query_params_base, $query_params_test, + "uri_for() doesn't mess up query parameter hash in the caller"); +}