[libdancer-plugin-rest-perl] 34/63: new header interface in test script

[Jonas Smedegaard]

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 057e24f66dbf5c20b7580ded8c6ca1c633cfa807
Author: Alexis Sukrieh <sukria at sukria.net>
Date:   Tue Oct 26 12:47:25 2010 +0200

    new header interface in test script
---
 t/02_prepare_serializer_for_format.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/02_prepare_serializer_for_format.t b/t/02_prepare_serializer_for_format.t
index 2eca254..5c8614a 100644
--- a/t/02_prepare_serializer_for_format.t
+++ b/t/02_prepare_serializer_for_format.t
@@ -55,9 +55,9 @@ plan tests => scalar(@tests) * 2;
 
 for my $test ( @tests ) {
     my $response = get_response_for_request(@{$test->{request}});
-    is_deeply( $response->{headers}, 
-        [ 'Content-Type' => $test->{content_type}],
-        "headers have content_type set to ".$test->{content_type});
+    is($response->header('Content-Type'), 
+       $test->{content_type},
+       "headers have content_type set to ".$test->{content_type});
 
     is( $response->{content}, $test->{response},
         "\$data has been encoded" );

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