From: Christian Hansen <chansen@cpan.org>
Date: Tue, 14 Nov 2006 19:19:06 +0000 (+0000)
Subject: force scalar context on header test.
X-Git-Tag: 5.7099_04~273
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=1e0df04ffa2e5a72740c0193376eede0f4f1a6d5

force scalar context on header test.
---

diff --git a/t/live_engine_request_headers.t b/t/live_engine_request_headers.t
index c68d585..fc32874 100644
--- a/t/live_engine_request_headers.t
+++ b/t/live_engine_request_headers.t
@@ -37,8 +37,9 @@ use URI;
     { # Test that multiple headers are joined as per RFC 2616 4.2 and RFC 3875 4.1.18
 
         my $excpected = '1, 2, 3, 4, 5';
-        
-        is( $creq->header('X-Multiple'), $request->header('X-Multiple'), 'Multiple message-headers are joined as a comma-separated list' );
+        my $got       = $creq->header('X-Multiple'); # HTTP::Headers is context sensitive, "force" scalar context
+
+        is( $got, $excpected, 'Multiple message-headers are joined as a comma-separated list' );
     }
 
     is( $creq->header('User-Agent'), $request->header('User-Agent'), 'Catalyst::Request->header User-Agent' );