From d365eeaa68672f435db87e191b9cd86ac44e3e57 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
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