X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_app_session.t;fp=t%2Flive_app_session.t;h=dc9df45f5dceffb34adc2590d301780cf8ece4b1;hb=ce0b058db52ea4c39e1563f4950c1cc5749f0a00;hp=6d064e92e599098d24bc44c14aeececf0a03d3ce;hpb=26549221235886ce923ffa0e9d88421ed8c4b06c;p=catagits%2FCatalyst-Plugin-Authentication.git diff --git a/t/live_app_session.t b/t/live_app_session.t index 6d064e9..dc9df45 100644 --- a/t/live_app_session.t +++ b/t/live_app_session.t @@ -8,7 +8,7 @@ use Test::More; BEGIN { eval { require Catalyst::Plugin::Session; require Catalyst::Plugin::Session::State::Cookie }; plan skip_all => "This test needs Catalyst::Plugin::Session and Catalyst::Plugin::Session::State::Cookie installed" if $@; - plan tests => 12; + plan tests => 14; } { @@ -40,6 +40,7 @@ BEGIN { my ( $self, $c ) = @_; ok(!$c->sessionid, "no session id yet"); + ok(!$c->user_exists, "no user exists"); ok(!$c->user, "no user yet"); ok($c->login( "foo", "s3cr3t" ), "can login with clear"); is( $c->user, $users->{foo}, "user object is in proper place"); @@ -49,6 +50,7 @@ BEGIN { my ( $self, $c ) = @_; ok( $c->sessionid, "session ID was restored" ); + ok( $c->user_exists, "user exists" ); ok( $c->user, "a user was also restored"); is_deeply( $c->user, $users->{foo}, "restored user is the right one (deep test - store might change identity)" );