diff options
| author | Bill MacAllister <whm@dropbox.com> | 2015-12-18 21:54:52 +0000 |
|---|---|---|
| committer | Bill MacAllister <whm@dropbox.com> | 2015-12-18 21:54:52 +0000 |
| commit | f61bff40b0c76b01b89f8b977eb27fdef9409c2a (patch) | |
| tree | 9812f0b1c38e001d6ddd8d7343adc40fa800e338 /perl/t/object/base.t | |
| parent | 0eb853eb2ef7e7063c0219ce2cbd1e239d5579b7 (diff) | |
| parent | 4a777845b06b62a6deb1df5e69cc9b21226c3c2f (diff) | |
Merge branch 'master' into ad-keytabs
Conflicts:
NEWS
Diffstat (limited to 'perl/t/object/base.t')
| -rwxr-xr-x | perl/t/object/base.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl/t/object/base.t b/perl/t/object/base.t index ee9ff4b..8fedd64 100755 --- a/perl/t/object/base.t +++ b/perl/t/object/base.t @@ -12,7 +12,7 @@ use strict; use warnings; use POSIX qw(strftime); -use Test::More tests => 137; +use Test::More tests => 139; use Wallet::ACL; use Wallet::Admin; @@ -208,6 +208,9 @@ is ($object->flag_clear ('locked', @trace), 1, 'Clearing locked succeeds'); eval { $object->get (@trace) }; is ($@, "Do not instantiate Wallet::Object::Base directly\n", 'Get fails with the right error'); +ok (!$object->update (@trace), 'Update fails'); +is ($object->error, 'update is not supported for this type, use get instead', + ' with the right error'); ok (! $object->store ("Some data", @trace), 'Store fails'); is ($object->error, "cannot store keytab:$princ: object type is immutable", ' with the right error'); |