From 81d2da8adbf8db6629e7a223b10633e58b288b19 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Mon, 17 Sep 2007 16:02:18 +0000
Subject: In show() for an object, call show() for each of the ACLs on that
 object and append that information to the object description.

---
 perl/t/object.t | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl/t/object.t')

diff --git a/perl/t/object.t b/perl/t/object.t
index 05d8569..05f2f00 100755
--- a/perl/t/object.t
+++ b/perl/t/object.t
@@ -138,6 +138,9 @@ my $output = <<"EOO";
      Created by: $user
    Created from: $host
      Created on: $created
+
+Members of ACL ADMIN (id: 1) are:
+  krb5 $user
 EOO
 is ($object->show, $output, 'Show output is correct');
 
-- 
cgit v1.2.3