This is an automated email from the git hooks/post-receive script. js pushed a commit to annotated tag 0.07 in repository libdancer-plugin-rest-perl.
commit 8f0efe4193c2531a2ad9ce3c2aafe7e619505899 Author: Alexis Sukrieh <suk...@sukria.net> Date: Sat Apr 3 17:24:42 2010 +0200 TestUtils support body params in fake_request --- t/TestUtils.pm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/t/TestUtils.pm b/t/TestUtils.pm index 415f8a5..d067bbb 100644 --- a/t/TestUtils.pm +++ b/t/TestUtils.pm @@ -10,14 +10,18 @@ use Dancer::Config 'setting'; @EXPORT = qw(fake_request get_response_for_request); -sub fake_request($$) { - my ($method, $path) = @_; - return Dancer::Request->new_for_request($method => $path); +sub fake_request($$;$) { + my ($method, $path, $params) = @_; + my $req = Dancer::Request->new_for_request($method => $path); + if ($params) { + $req->_set_body_params($params); + } + return $req; } sub get_response_for_request { - my ($method, $path) = @_; - my $request = fake_request($method => $path); + my ($method, $path, $params) = @_; + my $request = fake_request($method => $path, $params); Dancer::SharedData->request($request); Dancer::Renderer::get_action_response(); } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdancer-plugin-rest-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits