use strict;
use warnings;
-use Test::More tests => 2;
+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 }
- my $finalized = 0;
sub finalize_session { $finalized = 1 }
sub finalize { die "already finalized_session()" if $finalized }
my $c = TestApp->new;
eval { $c->finalize };
ok(!$@, "finalize_session() called after all other finalize() methods");
+ok($finalized, "finalize_session() called");