diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-09-01 00:38:27 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-09-01 00:38:27 +0000 |
| commit | 82917d322d7c505a2689b10c3ddc4cae2625b6f0 (patch) | |
| tree | db4cd73d52792812d17bd6ea6fb2d6c4e060c1a6 /perl | |
| parent | 9df0def5c5d518f5415ea5fbae737c16670a8249 (diff) | |
Test another case around the ADMIN ACL.
Diffstat (limited to 'perl')
| -rwxr-xr-x | perl/t/server.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl/t/server.t b/perl/t/server.t index 5265c2d..415f8a3 100755 --- a/perl/t/server.t +++ b/perl/t/server.t @@ -3,7 +3,7 @@ # # t/server.t -- Tests for the wallet server API. -use Test::More tests => 207; +use Test::More tests => 209; use Wallet::Config; use Wallet::Server; @@ -105,6 +105,9 @@ is ($server->acl_remove ('ADMIN', 'krb5', $admin), undef, ' or remove its last entry'); is ($server->error, 'cannot remove last ADMIN ACL entry', ' with the right error'); +is ($server->acl_add ('ADMIN', 'krb5', $user1), 1, + ' but we can add another entry'); +is ($server->acl_remove ('ADMIN', 'krb5', $user1), 1, ' and then remove it'); # Now, create a few objects to use for testing and test the object API while # we're at it. |