[Catalyst-commits] r13416 - in Catalyst-Plugin-Session/0.00/trunk: . lib/Catalyst/Plugin t t/lib/SessionTestApp/Controller

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-07-19 20:21:29 +0100 (Mon, 19 Jul 2010)
New Revision: 13416

Modified:
   Catalyst-Plugin-Session/0.00/trunk/Changes
   Catalyst-Plugin-Session/0.00/trunk/Makefile.PL
   Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm
   Catalyst-Plugin-Session/0.00/trunk/t/lib/SessionTestApp/Controller/Root.pm
   Catalyst-Plugin-Session/0.00/trunk/t/live_app.t
Log:
Fix RT#58856

Modified: Catalyst-Plugin-Session/0.00/trunk/Changes
===================================================================
--- Catalyst-Plugin-Session/0.00/trunk/Changes	2010-07-19 19:16:02 UTC (rev 13415)
+++ Catalyst-Plugin-Session/0.00/trunk/Changes	2010-07-19 19:21:29 UTC (rev 13416)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::Session
 
+        - Fix session being loaded by call to dump_these in debug mode
+          (RT#58856)
+
 0.30 2010-06-24
         - Fix Makefile.PL's is_upgrading_needed() routine (RT #58771)
 

Modified: Catalyst-Plugin-Session/0.00/trunk/Makefile.PL
===================================================================
--- Catalyst-Plugin-Session/0.00/trunk/Makefile.PL	2010-07-19 19:16:02 UTC (rev 13415)
+++ Catalyst-Plugin-Session/0.00/trunk/Makefile.PL	2010-07-19 19:21:29 UTC (rev 13416)
@@ -26,7 +26,7 @@
 requires 'Tie::RefHash' => '1.34';
 
 # for Test::Store
-requires 'Test::More';
+requires 'Test::More' => '0.88';
 
 test_requires 'Test::Deep';
 test_requires 'Test::Exception';

Modified: Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm
===================================================================
--- Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm	2010-07-19 19:16:02 UTC (rev 13415)
+++ Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm	2010-07-19 19:21:29 UTC (rev 13416)
@@ -578,7 +578,7 @@
     (
         $c->maybe::next::method(),
 
-        $c->sessionid
+        $c->_sessionid
         ? ( [ "Session ID" => $c->sessionid ], [ Session => $c->session ], )
         : ()
     );

Modified: Catalyst-Plugin-Session/0.00/trunk/t/lib/SessionTestApp/Controller/Root.pm
===================================================================
--- Catalyst-Plugin-Session/0.00/trunk/t/lib/SessionTestApp/Controller/Root.pm	2010-07-19 19:16:02 UTC (rev 13415)
+++ Catalyst-Plugin-Session/0.00/trunk/t/lib/SessionTestApp/Controller/Root.pm	2010-07-19 19:21:29 UTC (rev 13416)
@@ -88,4 +88,16 @@
     }
 }
 
+sub dump_these_loads_session : Global {
+    my ($self, $c) = @_;
+
+    $c->dump_these();
+    if ($c->_session) {
+        $c->res->write('LOADED')
+    }
+    else {
+        $c->res->write('NOT');
+    }
+}
+
 1;

Modified: Catalyst-Plugin-Session/0.00/trunk/t/live_app.t
===================================================================
--- Catalyst-Plugin-Session/0.00/trunk/t/live_app.t	2010-07-19 19:16:02 UTC (rev 13415)
+++ Catalyst-Plugin-Session/0.00/trunk/t/live_app.t	2010-07-19 19:21:29 UTC (rev 13416)
@@ -16,8 +16,6 @@
     }
     or plan skip_all =>
         'Test::WWW::Mechanize::Catalyst >= 0.51 is required for this test';
-
-    plan tests => 36;
 }
 
 use lib "t/lib";
@@ -83,6 +81,12 @@
 $ua1->content_contains( "please login", "ua1 not logged in" );
 $ua2->content_contains( "please login", "ua2 not logged in" );
 
+my $ua3 = Test::WWW::Mechanize::Catalyst->new;
+$ua3->get_ok( "http://localhost/login", "log ua3 in" );
+$ua3->get_ok( "http://localhost/dump_these_loads_session");
+$ua3->content_contains('NOT');
+
 diag("Testing against Catalyst $Catalyst::VERSION");
 diag("Testing Catalyst::Plugin::Session $Catalyst::Plugin::Session::VERSION");
 
+done_testing;