X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbackend.t;fp=t%2Fbackend.t;h=2eb77cae5df6686f92eface9353f8a74497c1bb8;hb=039544ff7e03ea53d05dab5e7dcf6cdb3122f886;hp=68347187f710d2d3f7922f67fb9fea9b67c7d966;hpb=ec31fe73dbbe0ab07357ea5959f29aed83d03c81;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git

diff --git a/t/backend.t b/t/backend.t
index 6834718..2eb77ca 100644
--- a/t/backend.t
+++ b/t/backend.t
@@ -38,3 +38,13 @@ can_ok( $u, "check_password");
 ok( $u->check_password( "s3cr3t" ), "password is s3cr3t");
 
 
+ok( $m->user_supports(qw/session/), "user_supports session");
+
+is( $u->store, $o, "can get store");
+
+can_ok( $m, "from_session" );
+can_ok( $u, "for_session" );
+
+my $recovered = $u->store->from_session( undef, $u->for_session );
+
+is( $recovered->username, $u->username, "recovery from session works");