diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-08-27 16:46:50 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-08-27 16:46:50 +0000 |
| commit | 10c21db62ffe14c6f208cbfa938f72bc4876f594 (patch) | |
| tree | 5289375b51af835e36153aeacc41ced86f56c021 /perl/t | |
| parent | 8fc83f27c6c0845e2e2319cd0e2f3ea321bbb105 (diff) | |
Rename Wallet::ACL to Wallet::ACL::Base to preserve the Wallet::ACL
package name for higher-level ACL handling.
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'); |