diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-09-17 16:02:18 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-09-17 16:02:18 +0000 |
| commit | 81d2da8adbf8db6629e7a223b10633e58b288b19 (patch) | |
| tree | 9c061fe9dac79044f19217b9a7fdb29559468424 /perl/t/object.t | |
| parent | a793a836222b551517e359b47ba0882b4910944d (diff) | |
In show() for an object, call show() for each of the ACLs on that object
and append that information to the object description.
Diffstat (limited to 'perl/t/object.t')
| -rwxr-xr-x | perl/t/object.t | 3 |
1 files changed, 3 insertions, 0 deletions
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'); |