X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git;a=blobdiff_plain;f=t%2Fbackend_md5.t;h=61a5fbb528a5c4a77a5bdce71796f9a935dcf216;hp=c6f524ae38c9fee1b1aa7e3a9d0ee9973ceb9c2d;hb=cedb9fb4ae54e24ead346e95e1a9f574ea543eb8;hpb=7efcea1c2ca10adaad1feb4a4a8c667704d2667c diff --git a/t/backend_md5.t b/t/backend_md5.t index c6f524a..61a5fbb 100644 --- a/t/backend_md5.t +++ b/t/backend_md5.t @@ -11,8 +11,6 @@ BEGIN { plan tests => 12; } -use Path::Class; - use File::Temp qw/tempfile/; my $m; BEGIN { use_ok($m = "Catalyst::Plugin::Authentication::Store::Htpasswd::Backend") } @@ -23,14 +21,12 @@ my $passwd = Authen::Htpasswd->new($tmp, { encrypt_hash => 'md5' }); $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" );