view release on metacpan or  search on metacpan

t/01-tests.t  view on Meta::CPAN

use Test::More tests => 14;

use_ok( 'Authen::Class::HtAuth' );
my $atest; eval { $atest = Authen::Class::HtAuth->new(
	htusers => "t/htusers",
	htgroups => "t/htgroups",
)};

ok($atest->can("check"), "load auth files");
ok($atest->check("ryan", "fuckface"), "valid credentials check");
ok(!$atest->check("ryan", "ilikecheese"), "invalid credentials check");
ok($atest->check(qw/ryan fuckface/, groups => [
	[One => qw/admin users/],
	qw/middleclass american/, ]),
	"valid groups check");
ok($atest->groupcheck("ryan", groups => [
	[All => qw/admin american/],
	qw/middleclass american/, ]),
	"valid groups check 2");
ok(!$atest->groupcheck("ryan", groups => [qw/admin users american/]),
	"invalid groups check");