diff options
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/object.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl/t/object.t b/perl/t/object.t index 73efbb7..a69101e 100755 --- a/perl/t/object.t +++ b/perl/t/object.t @@ -3,7 +3,7 @@ # # t/object.t -- Tests for the basic object implementation. -use Test::More tests => 125; +use Test::More tests => 129; use Wallet::ACL; use Wallet::Config; @@ -150,6 +150,12 @@ if ($object->flag_set ('locked', @trace)) { is ($object->error, '', ' and setting it again works'); } +# Attributes. Very boring. +is ($object->attr ('foo'), undef, 'Retrieving an attribute fails'); +is ($object->error, 'unknown attribute foo', ' with the right error'); +is ($object->attr ('foo', [ 'foo' ], @trace), undef, ' and setting fails'); +is ($object->error, 'unknown attribute foo', ' with the right error'); + # Test stub methods and locked status. is ($object->store ("Some data", @trace), undef, 'Store fails'); is ($object->error, "cannot store keytab:${princ}: object is locked", |