diff options
| author | Russ Allbery <rra@stanford.edu> | 2010-01-19 22:48:01 -0800 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2010-01-19 22:48:01 -0800 |
| commit | d684049761db4eb88cd936c530196ea89a524c07 (patch) | |
| tree | a7be768921000e125b7b0989f75739509c3bde6b /perl/t/admin.t | |
| parent | b7aedd9b7290d51dc5e46c4b123cd5f0f080f9c7 (diff) | |
Coding style fixes for Perl wallet code
Strip trailing whitespace, convert tabs to spaces, add newlines to
exceptions, and remove a few stray blank lines and a few other minor
coding style oddities. Make the SQL style consistent.
Diffstat (limited to 'perl/t/admin.t')
| -rwxr-xr-x | perl/t/admin.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/t/admin.t b/perl/t/admin.t index 77c786d..e963857 100755 --- a/perl/t/admin.t +++ b/perl/t/admin.t @@ -120,7 +120,7 @@ is ($lines[2][1], 'admin@EXAMPLE.COM', ' and the right identifier'); # owned by ADMIN or with any permissions from it. is ($server->create ('base', 'service/null'), 1, 'Creating base:service/null succeeds'); -is ($server->acl ('base', 'service/foo', 'get', 'ADMIN'), 1, +is ($server->acl ('base', 'service/foo', 'get', 'ADMIN'), 1, 'Changing the get ACL for the search also does'); @lines = $admin->list_objects ('owner', 'ADMIN'); is (scalar (@lines), 1, 'Searching for objects owned by ADMIN finds one'); @@ -150,7 +150,7 @@ is ($lines[2][1], 'service/null', ' and the right name'); is (scalar (@lines), 0, 'Searching for all objects of type keytab finds none'); # Test setting a flag, searching for objects with it, and then clearing it. -is ($server->flag_set ('base', 'service/admin', 'unchanging'), 1, +is ($server->flag_set ('base', 'service/admin', 'unchanging'), 1, 'Setting a flag works'); @lines = $admin->list_objects ('flag', 'unchanging'); is (scalar (@lines), 1, 'Searching for all objects with that flag finds one'); |