diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-10-10 19:27:21 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-10-10 19:27:21 +0000 |
| commit | fe078e12717c2ea54f8a3bd2fa454217f9d96fa4 (patch) | |
| tree | 1fd8fa0215518d7a424894b55a25117d2e091b86 /perl/t | |
| parent | befde46d4432535c18411e26c91b298bf825c66e (diff) | |
Start checking the history.
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/keytab.t | 32 |
1 files changed, 30 insertions, 2 deletions
diff --git a/perl/t/keytab.t b/perl/t/keytab.t index 0c2758f..0d5cf58 100755 --- a/perl/t/keytab.t +++ b/perl/t/keytab.t @@ -8,7 +8,8 @@ # # See LICENSE for licensing terms. -use Test::More tests => 194; +use POSIX qw(strftime); +use Test::More tests => 195; use Wallet::Config; use Wallet::Object::Keytab; @@ -204,9 +205,13 @@ is ($@, '', 'Database initialization did not die'); ok ($server->isa ('Wallet::Server'), ' and returned the right class'); my $dbh = $server->dbh; +# Use this to accumulate the history traces so that we can check history. +my $history = ''; +my $date = strftime ('%Y-%m-%d %H:%M:%S', localtime $trace[2]); + # Basic keytab creation and manipulation tests. SKIP: { - skip 'no keytab configuration', 48 unless -f 't/data/test.keytab'; + skip 'no keytab configuration', 49 unless -f 't/data/test.keytab'; # Set up our configuration. $Wallet::Config::KEYTAB_FILE = 't/data/test.keytab'; @@ -332,6 +337,29 @@ EOO is ($object->destroy (@trace), 1, ' and destroying it succeeds'); ok (! created ('wallet/one'), ' and now it does not exist'); + # Test history (which should still work after the object is deleted). + $history .= <<"EOO"; +$date create + by admin\@EXAMPLE.COM from localhost +$date set flag locked + by admin\@EXAMPLE.COM from localhost +$date clear flag locked + by admin\@EXAMPLE.COM from localhost +$date get + by admin\@EXAMPLE.COM from localhost +$date destroy + by admin\@EXAMPLE.COM from localhost +$date create + by admin\@EXAMPLE.COM from localhost +$date set flag locked + by admin\@EXAMPLE.COM from localhost +$date clear flag locked + by admin\@EXAMPLE.COM from localhost +$date destroy + by admin\@EXAMPLE.COM from localhost +EOO + is ($object->history, $history, 'History is correct to this point'); + # Test configuration errors. undef $Wallet::Config::KEYTAB_FILE; $object = eval { |