Small cleanups

diff --git a/t/lib/SessionValid.pm b/t/lib/SessionValid.pm
index 17c640c..fb003ab 100644 (file)
--- a/t/lib/SessionValid.pm
+++ b/t/lib/SessionValid.pm
@@ -1,15 +1,13 @@
-#!/usr/bin/env perl
-
 package SessionValid;
 use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
 
 use strict;
 use warnings;
 
-__PACKAGE__->config->{'session'} = {
+__PACKAGE__->config('Plugin::Session' => {
     cookie_expires => 0,
     expires => 1,
-};
+});
 
 __PACKAGE__->setup;
 

diff --git a/t/lib/SessionValid/Controller/Root.pm b/t/lib/SessionValid/Controller/Root.pm
index 9d6581d..9b5890e 100644 (file)
--- a/t/lib/SessionValid/Controller/Root.pm
+++ b/t/lib/SessionValid/Controller/Root.pm
@@ -1,7 +1,6 @@
 package SessionValid::Controller::Root;
 use strict;
 use warnings;
-use Data::Dumper;
 
 use base qw/Catalyst::Controller/;
 
@@ -9,9 +8,9 @@ __PACKAGE__->config( namespace => '' );
 
 sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
-    $c->session->{'value'} = 'value set';
+    $c->session('value' => 'value set');
     $c->session_is_valid;
-    $c->res->output($c->session->{'value'});
+    $c->res->body($c->session->{value});
 }
 
 1;

diff --git a/t/session_valid.t b/t/session_valid.t
index 1d9d7d6..2d64493 100644 (file)
--- a/t/session_valid.t
+++ b/t/session_valid.t
@@ -19,8 +19,8 @@ BEGIN {
 
     plan tests => 4;
 }
-
-use lib "t/lib";
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
 use Test::WWW::Mechanize::Catalyst "SessionValid";
 
 my $ua = Test::WWW::Mechanize::Catalyst->new;