[libdancer-plugin-rest-perl] 46/63: remove useless t/TestUtils.pm

Jonas Smedegaard dr at jones.dk
Wed Jul 2 11:44:54 UTC 2014


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 6eed50f4fc54084d120cc0a9b6c2c7fe9c1c3c42
Author: Alexis Sukrieh <alexis at weborama.com>
Date:   Fri Mar 4 12:57:54 2011 +0100

    remove useless t/TestUtils.pm
---
 t/TestUtils.pm | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/t/TestUtils.pm b/t/TestUtils.pm
deleted file mode 100644
index d067bbb..0000000
--- a/t/TestUtils.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-package TestUtils;
-
-use base 'Exporter';
-use vars '@EXPORT';
-
-use File::Path qw(mkpath rmtree);
-use Dancer::Request;
-use Dancer::Config 'setting';
-
- at EXPORT =
-  qw(fake_request get_response_for_request);
-
-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, $params) = @_;
-    my $request = fake_request($method => $path, $params);
-    Dancer::SharedData->request($request);
-    Dancer::Renderer::get_action_response();
-}
-
-1;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdancer-plugin-rest-perl.git



More information about the Pkg-perl-cvs-commits mailing list