[libdancer-plugin-rest-perl] 09/63: test scrtipt for prepare_serializer_for_format
Jonas Smedegaard
dr at jones.dk
Wed Jul 2 11:44:50 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 be0f0e63154e162d5959943a89e4f9e160b3d78f
Author: Alexis Sukrieh <sukria at sukria.net>
Date: Sat Apr 3 16:54:19 2010 +0200
test scrtipt for prepare_serializer_for_format
---
t/02_prepare_serializer_for_format.t | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/t/02_prepare_serializer_for_format.t b/t/02_prepare_serializer_for_format.t
new file mode 100644
index 0000000..5217970
--- /dev/null
+++ b/t/02_prepare_serializer_for_format.t
@@ -0,0 +1,35 @@
+use strict;
+use warnings;
+use Dancer::ModuleLoader;
+use Test::More import => ['!pass'];
+
+plan skip_all => "JSON is needed for this test"
+ unless Dancer::ModuleLoader->load('JSON');
+plan tests => 3;
+
+my $data = { foo => 42 };
+my $json = JSON::encode_json($data);
+
+{
+ package Webservice;
+ use Dancer;
+ use Dancer::Plugin::REST;
+
+ prepare_serializer_for_format;
+
+ get '/foo.:format' => sub {
+ $data;
+ };
+}
+
+use lib 't';
+use TestUtils;
+
+my $response = get_response_for_request(GET => '/foo.json');
+ok(defined($response), "response found for /foo.json");
+
+is_deeply( $response->{headers}, [ 'Content-Type' => 'application/json'],
+ "headers have content_type set to application/json" );
+
+is( $response->{content}, $json,
+ "\$data has been encoded to JSON");
--
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