diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-12-05 13:07:49 +0000 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-12-05 13:07:49 +0000 |
commit | 44ada25dad2dff99708a9b98ffb9d82ee602950e (patch) | |
tree | e369aa1b963a744adb4418f422ddee9e8ee210f3 /perllib/FixMyStreet/TestMech.pm | |
parent | 51cbde5ebcc08c52d3d5531c529c0c7a52b5e230 (diff) | |
parent | 1c288ef2dfc1b2e57d6a51c11401e95e8c589bd4 (diff) |
Merge branch '642-new-report-flow-changes'
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
-rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index 495310063..b8605f56c 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -537,31 +537,6 @@ sub visible_form_values { return \%params; } -=head2 session_cookie_expiry - - $expiry = $mech->session_cookie_expiry( ); - -Returns the current expiry time for the session cookie. Might be '0' which -indicates it expires at end of browser session. - -=cut - -sub session_cookie_expiry { - my $mech = shift; - - my $cookie_name = 'fixmystreet_app_session'; - my $expires = 'not found'; - - $mech # - ->cookie_jar # - ->scan( sub { $expires = $_[8] if $_[1] eq $cookie_name } ); - - croak "Could not find cookie '$cookie_name'" - if $expires && $expires eq 'not found'; - - return $expires || 0; -} - =head2 get_ok_json $decoded = $mech->get_ok_json( $url ); |