Fixes the use of Plack::Respose->new

[catagits/Web-Session.git] / t / 010_middleware.t

diff --git a/t/010_middleware.t b/t/010_middleware.t
index 1103bf7..9fe0842 100644 (file)
--- a/t/010_middleware.t
+++ b/t/010_middleware.t
@@ -11,7 +11,7 @@ my $app = sub {
     my $body = "Counter=$counter";
     $env->{'psgix.session'}->{counter} = $counter + 1;
 
-    return [ 200, [], [ $body ] ];
+    return [ 200, [ 'Content-Type', 'text/html' ], [ $body ] ];
 };
 
 $app = Plack::Middleware::Session->wrap($app);
@@ -22,6 +22,7 @@ test_psgi $app, sub {
     my $jar = HTTP::Cookies->new;
 
     my $res = $cb->(GET "http://localhost/");
+    is $res->content_type, 'text/html';
     is $res->content, "Counter=0";
     $jar->extract_cookies($res);