From 523f7c3a446139bfb287a11f631f9526658bf116 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 20 Sep 2007 23:00:30 +0000 Subject: Take multiple values in the attr() method and convert it to a reference to an array internally so that the callers don't have to be aware of the internal API. --- perl/t/server.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl/t/server.t') diff --git a/perl/t/server.t b/perl/t/server.t index a06f4c0..3da5461 100755 --- a/perl/t/server.t +++ b/perl/t/server.t @@ -186,7 +186,7 @@ is ($server->error, undef, ' and still no error'); is ($server->attr ('base', 'service/admin', 'foo'), undef, 'Getting an attribute fails'); is ($server->error, 'unknown attribute foo', ' but called the method'); -is ($server->attr ('base', 'service/admin', 'foo', [ 'foo' ]), undef, +is ($server->attr ('base', 'service/admin', 'foo', 'foo'), undef, ' and setting an attribute fails'); is ($server->error, 'unknown attribute foo', ' and called the method'); @@ -445,7 +445,7 @@ is ($show, $expected, ' and show an object we own'); is ($server->attr ('base', 'service/user1', 'foo'), undef, ' and getting an attribute fails'); is ($server->error, 'unknown attribute foo', ' but calls the method'); -is ($server->attr ('base', 'service/user1', 'foo', [ 'foo' ]), undef, +is ($server->attr ('base', 'service/user1', 'foo', 'foo'), undef, ' and setting an attribute fails'); is ($server->error, 'unknown attribute foo', ' but calls the method'); @@ -466,7 +466,7 @@ is ($server->attr ('base', 'service/user2', 'foo'), undef, is ($server->error, "$user1 not authorized to get attributes for base:service/user2", ' with the right error'); -is ($server->attr ('base', 'service/user2', 'foo', [ 'foo' ]), undef, +is ($server->attr ('base', 'service/user2', 'foo', ''), undef, ' and set attributes'); is ($server->error, "$user1 not authorized to set attributes for base:service/user2", @@ -523,10 +523,10 @@ is ($server->error, "$user1 not authorized to destroy base:service/both", is ($server->attr ('base', 'service/both', 'foo'), undef, 'Getting an attribute fails'); is ($server->error, 'unknown attribute foo', ' but calls the method'); -is ($server->attr ('base', 'service/both', 'foo', [ 'foo' ]), undef, +is ($server->attr ('base', 'service/both', 'foo', ''), undef, ' and setting an attribute fails'); is ($server->error, 'unknown attribute foo', ' but calls the method'); -is ($server->attr ('base', 'service/admin', 'foo', [ 'foo' ]), undef, +is ($server->attr ('base', 'service/admin', 'foo', ''), undef, ' but setting an attribute on service/admin fails'); is ($server->error, 'unknown attribute foo', ' and calls the method'); is ($server->attr ('base', 'service/admin', 'foo'), undef, @@ -604,7 +604,7 @@ is ($server->attr ('base', 'service/both', 'foo'), undef, is ($server->error, "$user2 not authorized to get attributes for base:service/both", ' with the right error'); -is ($server->attr ('base', 'service/both', 'foo', [ 'foo' ]), undef, +is ($server->attr ('base', 'service/both', 'foo', 'foo'), undef, ' but setting an attribute fails'); is ($server->error, 'unknown attribute foo', ' but calls the method'); is ($server->destroy ('base', 'service/both'), 1, ' and we can destroy it'); -- cgit v1.2.3