Allow dancer_response to accept paramters from the query string

lib/Dancer/Request.pm

@@ -138,14 +138,18 @@ sub to_string {
 # helper for building a request object by hand
 # with the given method, path, params, body and headers.
 sub new_for_request {
-    my ($class, $method, $path, $params, $body, $headers) = @_;
+    my ($class, $method, $uri, $params, $body, $headers) = @_;
     $params ||= {};
     $method = uc($method);
 
+    my ( $path, $query_string ) = ( $uri =~ /([^?]*)(?:\?(.*))?/s ); #from HTTP::Server::Simple
+
     my $req = $class->new(env => { %ENV,
                                     PATH_INFO      => $path,
+                                    QUERY_STRING   => $query_string || $ENV{QUERY_STRING} || '',
                                     REQUEST_METHOD => $method});
     $req->{params}        = {%{$req->{params}}, %{$params}};
+    $req->_build_params();
     $req->{_query_params} = $req->{params};
     $req->{body}          = $body    if defined $body;
     $req->{headers}       = $headers if $headers;

t/02_request/04_custom.t

@@ -1,4 +1,4 @@
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 use strict;
 use warnings FATAL => 'all';
@@ -28,3 +28,6 @@ $req = Dancer::Request->new_for_request('GET', '/stuff', {user => 'sukria'});
 is_deeply scalar($req->params), {foo => 'bar', number => 42, user => 'sukria'}, 
     'params are updated';
 
+$req = Dancer::Request->new_for_request('GET', '/stuff?foo=baz&number=24');
+is_deeply scalar($req->params), {foo => 'baz', number => 24},
+    'query string replace';

t/23_dancer_tests/02_tests_functions.t

@@ -3,7 +3,7 @@ use warnings;
 
 use Test::More;
 
-plan tests => 29;
+plan tests => 30;
 
 use Dancer qw/ :syntax :tests /;
 use Dancer::Test;
@@ -91,7 +91,10 @@ is_deeply $r->{content}, { user => { id => 2, name => "Franck Cuny" } },
   "id is correctly increased";
 
 $r = dancer_response( GET => '/query', { params => {foo => 'bar'}});
-is $r->{content} => "foo:bar";
+is $r->{content}, "foo:bar", 'passed fake query params';
+
+$r = dancer_response( GET => '/query?foo=bar' );
+is $r->{content}, "foo:bar", 'passed params in query';
 
 my $data = "She sells sea shells by the sea shore";
 $r = dancer_response(