X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_engine_request_headers.t;h=33c57f985f7bb21d8860836c6c6fedcb8b4b3b0d;hb=f3414019f472b55682ef3af53f761b6db7955887;hp=c68d58561dd32c2a246e4a1a1e0a589af469d214;hpb=ace55b0721e7026a837606c5ce14f1f8782dc3a8;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/live_engine_request_headers.t b/t/live_engine_request_headers.t
index c68d585..33c57f9 100644
--- a/t/live_engine_request_headers.t
+++ b/t/live_engine_request_headers.t
@@ -12,7 +12,6 @@ use Catalyst::Test 'TestApp';
 use Catalyst::Request;
 use HTTP::Headers;
 use HTTP::Request::Common;
-use URI;
 
 {
     my $creq;
@@ -37,8 +36,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' );