diff options
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/acl.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/t/acl.t b/perl/t/acl.t index 7d5f230..5549afb 100755 --- a/perl/t/acl.t +++ b/perl/t/acl.t @@ -5,12 +5,12 @@ use Test::More tests => 13; -use Wallet::ACL; +use Wallet::ACL::Base; use Wallet::ACL::Krb5; -my $verifier = Wallet::ACL->new; -ok (defined $verifier, 'Wallet::ACL creation'); -ok ($verifier->isa ('Wallet::ACL'), ' and class verification'); +my $verifier = Wallet::ACL::Base->new; +ok (defined $verifier, 'Wallet::ACL::Base creation'); +ok ($verifier->isa ('Wallet::ACL::Base'), ' and class verification'); is ($verifier->check ('rra@stanford.edu', 'rra@stanford.edu'), 0, 'Default check declines'); is ($verifier->error, undef, 'No error set'); |