X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git;a=blobdiff_plain;f=t%2Fbackend.t;h=9fe0d0e35522cf1202e303a49bde29140a09650f;hp=2eb77cae5df6686f92eface9353f8a74497c1bb8;hb=cedb9fb4ae54e24ead346e95e1a9f574ea543eb8;hpb=7efcea1c2ca10adaad1feb4a4a8c667704d2667c diff --git a/t/backend.t b/t/backend.t index 2eb77ca..9fe0d0e 100644 --- a/t/backend.t +++ b/t/backend.t @@ -3,8 +3,7 @@ use strict; use warnings; -use Test::More 'no_plan'; -use Path::Class; +use Test::More tests => 19; use File::Temp qw/tempfile/; @@ -16,14 +15,12 @@ my $passwd = Authen::Htpasswd->new($tmp); $passwd->add_user("user", "s3cr3t"); - can_ok($m, "new"); isa_ok(my $o = $m->new( $passwd ), $m); can_ok($m, "file"); isa_ok( $o->file, "Authen::Htpasswd"); - can_ok( $m, "user_supports"); ok( $m->user_supports(qw/password self_check/), "user_supports self check" ); @@ -37,7 +34,6 @@ ok( $u->supports(qw/password self_check/), "htpasswd users check their own passw 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");