diff options
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/admin.t | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/perl/t/admin.t b/perl/t/admin.t index 4c387bd..9795f19 100755 --- a/perl/t/admin.t +++ b/perl/t/admin.t @@ -8,7 +8,7 @@ # # See LICENSE for licensing terms. -use Test::More tests => 22; +use Test::More tests => 27; use Wallet::Admin; use Wallet::Schema; @@ -31,7 +31,8 @@ is (scalar (@objects), 0, 'No objects in the database'); is ($admin->error, undef, ' and no error'); my @acls = $admin->list_acls; is (scalar (@acls), 1, 'One ACL in the database'); -is ($acls[0], 1, ' and that is ACL ID 1'); +is ($acls[0][0], 1, ' and that is ACL ID 1'); +is ($acls[0][1], 'ADMIN', ' with the right name'); # Register a base object so that we can create a simple object. my $schema = Wallet::Schema->new; @@ -53,16 +54,20 @@ is ($objects[0][1], 'service/admin', ' and the right name'); is ($server->acl_create ('first'), 1, 'ACL creation succeeds'); @acls = $admin->list_acls; is (scalar (@acls), 2, ' and now there are two ACLs'); -is ($acls[0], 1, ' and the first ID is correct'); -is ($acls[1], 2, ' and the second ID is correct'); +is ($acls[0][0], 1, ' and the first ID is correct'); +is ($acls[0][1], 'ADMIN', ' and the first name is correct'); +is ($acls[1][0], 2, ' and the second ID is correct'); +is ($acls[1][1], 'first', ' and the second name is correct'); # Delete that ACL and create another. is ($server->acl_create ('second'), 1, 'Second ACL creation succeeds'); is ($server->acl_destroy ('first'), 1, ' and deletion of the first succeeds'); @acls = $admin->list_acls; is (scalar (@acls), 2, ' and there are still two ACLs'); -is ($acls[0], 1, ' and the first ID is still the same'); -is ($acls[1], 3, ' but the second ID has changed'); +is ($acls[0][0], 1, ' and the first ID is still the same'); +is ($acls[0][1], 'ADMIN', ' and the first name is still the same'); +is ($acls[1][0], 3, ' but the second ID has changed'); +is ($acls[1][1], 'second', ' and the second name is correct'); # Clean up. is ($admin->destroy, 1, 'Destruction succeeds'); |