[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