diff options
| author | Russ Allbery <eagle@eyrie.org> | 2015-12-14 21:54:13 -0800 |
|---|---|---|
| committer | Russ Allbery <eagle@eyrie.org> | 2015-12-14 21:54:13 -0800 |
| commit | b0d5c2d20c19ba4f4274a260660c98757ba07644 (patch) | |
| tree | ed2a02e79d6026bdb09e999da433033c0492bee5 /perl/t/object/base.t | |
| parent | 6b7b9a29d20a65712061648404bbc6f1be5cacee (diff) | |
| parent | 6b0cad572edef05d119abc8fc843c8c5d33665b8 (diff) | |
Merge pull request #2 from jonrober/master
Changes so far for 1.3
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'); |