diff options
author | Russ Allbery <rra@stanford.edu> | 2013-03-27 15:19:54 -0700 |
---|---|---|
committer | Russ Allbery <rra@stanford.edu> | 2013-03-27 15:19:54 -0700 |
commit | 5df16adc5024c56e3d733741919954308b4d498a (patch) | |
tree | 5f042adaaa988478ca271f41f9b272ef5a1b45b5 /perl/t/report.t | |
parent | 431c3b56a52b9fe3135ab4339bada13ed49bda92 (diff) | |
parent | 6871bae8e26beadaff5035de56b4f70a78961dc9 (diff) |
Merge tag 'upstream/1.0' into debian
Upstream version 1.0
Diffstat (limited to 'perl/t/report.t')
-rwxr-xr-x | perl/t/report.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/t/report.t b/perl/t/report.t index 363db20..a6b85df 100755 --- a/perl/t/report.t +++ b/perl/t/report.t @@ -3,7 +3,8 @@ # Tests for the wallet reporting interface. # # Written by Russ Allbery <rra@stanford.edu> -# Copyright 2008, 2009, 2010 Board of Trustees, Leland Stanford Jr. University +# Copyright 2008, 2009, 2010 +# The Board of Trustees of the Leland Stanford Junior University # # See LICENSE for licensing terms. @@ -145,7 +146,7 @@ is (scalar (@lines), 1, 'Searching for objects owned by ADMIN finds one'); is ($lines[0][0], 'base', ' and it has the right type'); is ($lines[0][1], 'service/admin', ' and the right name'); @lines = $report->objects ('owner', 'null'); -is (scalar (@lines), 1, 'Searching for objects with no set ownerfinds one'); +is (scalar (@lines), 1, 'Searching for objects with no set owner finds one'); is ($lines[0][0], 'base', ' and it has the right type'); is ($lines[0][1], 'service/null', ' and the right name'); @lines = $report->objects ('acl', 'ADMIN'); |