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

[mla at dev.catalyst.perl.org]

Author: mla
Date: 2007-05-30 21:36:58 +0100 (Wed, 30 May 2007)
New Revision: 6448

Modified:
   trunk/Catalyst-Plugin-Session/t/06_finalize.t
Log:
add check to make sure finalize_session() was actually called

Modified: trunk/Catalyst-Plugin-Session/t/06_finalize.t
===================================================================
--- trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-05-30 19:15:54 UTC (rev 6447)
+++ trunk/Catalyst-Plugin-Session/t/06_finalize.t	2007-05-30 20:36:58 UTC (rev 6448)
@@ -3,12 +3,13 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 
+my $finalized = 0;
+
 {
   package TestPlugin;
 
-  my $finalized = 0;
   sub finalize_session { $finalized = 1 }
 
   sub finalize { die "already finalized_session()" if $finalized }
@@ -28,3 +29,4 @@
 my $c = TestApp->new;
 eval { $c->finalize };
 ok(!$@, "finalize_session() called after all other finalize() methods");
+ok($finalized, "finalize_session() called");