X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session.git;a=blobdiff_plain;f=t%2Flib%2FSessionTestApp%2FController%2FRoot.pm;fp=t%2Flib%2FSessionTestApp%2FController%2FRoot.pm;h=9a38bc85a11b04c6633872a93571f111fd1bd205;hp=0afc633814bc2c53d50e6d71c217f9ecb0849fb2;hb=0421e89a069209a4258a41e375de0209be4a51da;hpb=c31fa45fd621dac601586eac32d284e636850edf

diff --git a/t/lib/SessionTestApp/Controller/Root.pm b/t/lib/SessionTestApp/Controller/Root.pm
index 0afc633..9a38bc8 100644
--- a/t/lib/SessionTestApp/Controller/Root.pm
+++ b/t/lib/SessionTestApp/Controller/Root.pm
@@ -133,4 +133,13 @@ sub reset_session_expires : Global {
     $c->res->output($c->session_expires);
 }
 
+sub get_expires : Global {
+    my ( $self, $c ) = @_;
+    $c->session;
+    if (my $sid = $c->sessionid) {
+        $c->finalize_headers(); # force expiration to be updated
+        $c->res->output($c->get_session_data("expires:$sid"));
+    }
+}
+
 1;