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 190497d..9fe0842 100644 (file)
--- a/t/010_middleware.t
+++ b/t/010_middleware.t
@@ -6,13 +6,12 @@ use HTTP::Cookies;
 
 my $app = sub {
     my $env = shift;
-    my $counter = $env->{'plack.session'}->get('counter') || 0;
+    my $counter = $env->{'psgix.session'}->{counter} || 0;
 
     my $body = "Counter=$counter";
-    $counter++;
-    $env->{'plack.session'}->set(counter => $counter);
+    $env->{'psgix.session'}->{counter} = $counter + 1;
 
-    return [ 200, [], [ $body ] ];
+    return [ 200, [ 'Content-Type', 'text/html' ], [ $body ] ];
 };
 
 $app = Plack::Middleware::Session->wrap($app);
@@ -23,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);