From d365eeaa68672f435db87e191b9cd86ac44e3e57 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Sat, 1 Sep 2007 00:39:51 +0000 Subject: Test a couple more ADMIN ACL manipulation cases. --- perl/t/server.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/perl/t/server.t b/perl/t/server.t index 415f8a3..2b8ecbc 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 => 209; +use Test::More tests => 211; use Wallet::Config; use Wallet::Server; @@ -108,6 +108,11 @@ is ($server->error, 'cannot remove last ADMIN ACL entry', 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'); +is ($server->acl_remove ('ADMIN', 'krb5', $user1), undef, + ' and remove a user not on it'); +is ($server->error, + "cannot remove krb5:$user1 from 1: entry not found in ACL", + ' and get the right error'); # Now, create a few objects to use for testing and test the object API while # we're at it. -- cgit v1.2.3