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

jrockway at dev.catalyst.perl.org jrockway at dev.catalyst.perl.org
Sat Sep 22 01:54:19 GMT 2007


Author: jrockway
Date: 2007-09-22 01:54:19 +0100 (Sat, 22 Sep 2007)
New Revision: 6932

Removed:
   trunk/Catalyst-Plugin-Session/t/06_finalize.t
Log:
we can't run finalize AFTER response is set; so deleteing test that ensures this

Deleted: trunk/Catalyst-Plugin-Session/t/06_finalize.t
===================================================================
--- trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-09-22 00:51:16 UTC (rev 6931)
+++ trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-09-22 00:54:19 UTC (rev 6932)
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-BEGIN {
-    if ( eval { require Catalyst::Plugin::Session::State::Cookie } ) {
-        plan tests => 3;
-    } else {
-        plan skip_all => "Catalyst::Plugin::Session::State::Cookie required";
-    }
-}
-
-my $finalized = 0;
-
-{
-  package TestPlugin;
-  BEGIN { $INC{"TestPlugin.pm"} = 1 } # nasty hack for 5.8.6
-
-  sub finalize_session { $finalized = 1 }
-
-  sub finalize { die "already finalized_session()" if $finalized }
-
-  # Structure inheritance so TestPlugin->finalize() is called *after* 
-  # Catalyst::Plugin::Session->finalize()
-  package TestApp;
-
-  use Catalyst qw/
-    Session Session::Store::Dummy Session::State::Cookie +TestPlugin 
-  /;
-  __PACKAGE__->setup;
-}
-
-BEGIN { use_ok('Catalyst::Plugin::Session') }
-
-my $c = TestApp->new;
-eval { $c->finalize };
-ok(!$@, "finalize_session() called after all other finalize() methods");
-ok($finalized, "finalize_session() called");




More information about the Catalyst-commits mailing list