t/06_finalize.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7
   8 {
   9   package TestPlugin;
  10
  11   my $finalized = 0;
  12   sub finalize_session { $finalized = 1 }
  13
  14   sub finalize { die "already finalized_session()" if $finalized }
  15
  16   # Structure inheritance so TestPlugin->finalize() is called *after*
  17   # Catalyst::Plugin::Session->finalize()
  18   package TestApp;
  19
  20   use Catalyst qw/
  21     Session Session::Store::Dummy Session::State::Cookie +TestPlugin
  22   /;
  23   __PACKAGE__->setup;
  24 }
  25
  26 BEGIN { use_ok('Catalyst::Plugin::Session') }
  27
  28 my $c = TestApp->new;
  29 eval { $c->finalize };
  30 ok(!$@, "finalize_session() called after all other finalize() methods");