X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_uri_with.t;h=1e13a9bed32fa915fd070d4eb3928e223a9038ea;hp=0af788fc6863519ca1067c21fc29959efd4a083e;hb=82010ea176741c7a4f2baf3f6f27377b1d9f6b15;hpb=1e8c91ac049beb99fe82c74269fda1436b343d90

diff --git a/t/aggregate/unit_core_uri_with.t b/t/aggregate/unit_core_uri_with.t
index 0af788f..1e13a9b 100644
--- a/t/aggregate/unit_core_uri_with.t
+++ b/t/aggregate/unit_core_uri_with.t
@@ -3,6 +3,7 @@ use warnings;
 
 use Test::More;
 use URI;
+use URI::QueryParam;
 use Catalyst::Log;
 
 use_ok('Catalyst::Request');
@@ -14,9 +15,7 @@ sub cmp_uri {
     foreach my $thing (qw/ scheme host path /) {
         is $exp->$thing, $got->$thing, "$comment: $thing";
     }
-    my %got_q = map { split /=/ } split /\&/, ($got->query||'');
-    my %exp_q = map { split /=/ } split /\&/, ($exp->query||'');
-    is_deeply \%got_q, \%exp_q, "$comment: query";
+    is_deeply $got->query_form_hash, $exp->query_form_hash, "$comment: query";
 }
 
 my $request = Catalyst::Request->new( {