diff options
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/acl.t | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/perl/t/acl.t b/perl/t/acl.t index 644ea3e..bd055d2 100755 --- a/perl/t/acl.t +++ b/perl/t/acl.t @@ -8,7 +8,8 @@ # # See LICENSE for licensing terms. -use Test::More tests => 100; +use POSIX qw(strftime); +use Test::More tests => 101; use Wallet::ACL; use Wallet::Config; @@ -24,7 +25,7 @@ my $admin = 'admin@EXAMPLE.COM'; my $user1 = 'alice@EXAMPLE.COM'; my $user2 = 'bob@EXAMPLE.COM'; my $host = 'localhost'; -my @trace = ($admin, $host); +my @trace = ($admin, $host, time); # Use Wallet::Server to set up the database. my $server = eval { Wallet::Server->initialize ($admin) }; @@ -187,6 +188,26 @@ is ($acl->show, "Members of ACL example (id: 2) are:\n", ' and show concurs'); is ($acl->check ($user2), 0, ' and the second user check fails'); is (scalar ($acl->check_errors), '', ' with no error message'); +# Test history. +my $date = strftime ('%Y-%m-%d %H:%M:%S', localtime $trace[2]); +my $history = <<"EOO"; +$date create + by $admin from $host +$date add krb5 $user1 + by $admin from $host +$date add krb5 $user2 + by $admin from $host +$date remove krb5 $user1 + by $admin from $host +$date add krb5 + by $admin from $host +$date remove krb5 $user2 + by $admin from $host +$date remove krb5 + by $admin from $host +EOO +is ($acl->history, $history, 'History is correct'); + # Test destroy. if ($acl->destroy (@trace)) { ok (1, 'Destroying the ACL works'); |