From: Jonathan Rockway Date: Sat, 22 Sep 2007 00:54:19 +0000 (+0000) Subject: we can't run finalize AFTER response is set; so deleteing test that ensures this X-Git-Tag: v0.19~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session.git;a=commitdiff_plain;h=462e524f8ae2b19d6cacaa81883fb833b8061148 we can't run finalize AFTER response is set; so deleteing test that ensures this --- diff --git a/t/06_finalize.t b/t/06_finalize.t deleted file mode 100644 index b1aac67..0000000 --- a/t/06_finalize.t +++ /dev/null @@ -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");