Add Catalyst::Test::crequest to return both HTTP::Response object & $c for

[catagits/Catalyst-Runtime.git] / t / live_engine_request_headers.t

diff --git a/t/live_engine_request_headers.t b/t/live_engine_request_headers.t
index c68d585..33c57f9 100644 (file)
--- 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' );