X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FSessionTestApp%2FController%2FRoot.pm;h=34070b95ed92ab93eb990d7eb5e04c5615570567;hb=2a1463db58f97ac9bb1a7e99c314877c3fa54712;hp=ff80dd67c83bfd0842f381502df048aec93e0c58;hpb=f4f73302c97ef22bf251c91508194b7ae2c4d9bd;p=catagits%2FCatalyst-Plugin-Session.git

diff --git a/t/lib/SessionTestApp/Controller/Root.pm b/t/lib/SessionTestApp/Controller/Root.pm
index ff80dd6..34070b9 100644
--- a/t/lib/SessionTestApp/Controller/Root.pm
+++ b/t/lib/SessionTestApp/Controller/Root.pm
@@ -13,6 +13,14 @@ sub login : Global {
     $c->res->output("logged in");
 }
 
+sub login_without_address : Global {
+    my ( $self, $c ) = @_;
+    $c->session;
+    $c->log->debug($c->request->address);
+    delete $c->session->{__address};
+    $c->res->output("logged in (without address)");
+}
+
 sub logout : Global {
     my ( $self, $c ) = @_;
     $c->res->output(