[Catalyst-commits] r6439 - trunk/Catalyst-Plugin-Session/t

[mla at dev.catalyst.perl.org]

Author: mla
Date: 2007-05-28 22:32:21 +0100 (Mon, 28 May 2007)
New Revision: 6439

Modified:
   trunk/Catalyst-Plugin-Session/t/06_finalize.t
Log:
cleanups; call to config() was unneeded

Modified: trunk/Catalyst-Plugin-Session/t/06_finalize.t
===================================================================
--- trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-05-28 21:16:50 UTC (rev 6438)
+++ trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-05-28 21:32:21 UTC (rev 6439)
@@ -6,25 +6,24 @@
 use Test::More tests => 2;
 
 {
-  package MyTestPlugin;
-  use strict;
+  package TestPlugin;
 
   my $finalized = 0;
   sub finalize_session { $finalized = 1 }
 
   sub finalize { die "already finalized_session()" if $finalized }
 
-  # Structure inheritance so MyTestPlugin->finalize() is called *after* 
+  # Structure inheritance so TestPlugin->finalize() is called *after* 
   # Catalyst::Plugin::Session->finalize()
   package TestApp;
 
-  use Catalyst qw/ Session Session::Store::Dummy Session::State::Cookie +MyTestPlugin /;
-  __PACKAGE__->config(session => { expires => 1000 });
+  use Catalyst qw/
+    Session Session::Store::Dummy Session::State::Cookie +TestPlugin 
+  /;
   __PACKAGE__->setup;
 }
 
-my $m;
-BEGIN { use_ok( $m = "Catalyst::Plugin::Session" ) }
+BEGIN { use_ok('Catalyst::Plugin::Session') }
 
 my $c = TestApp->new;
 eval { $c->finalize };