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=3dd3a69370e04fa488092de1dbc51bd93549bc34;hp=af47c9f2d4b28fd8796554eac14188946441930e;hb=1f851263ba70ba7d398ed19b45eaaca482f5aaa3;hpb=73c6a22a236c09a6a3db9c58b720c8a5f758911d

diff --git a/t/unit_core_uri_for.t b/t/unit_core_uri_for.t
index af47c9f..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 => 19;
+use Test::More tests => 20;
 use URI;
 
 use_ok('Catalyst');
@@ -133,3 +133,13 @@ TODO: {
     );
 }
 
+# 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");
+}