From 60210334fa3dbd5dd168199063c6ee850d750d0c Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Sun, 21 Feb 2010 17:45:55 -0800
Subject: Imported Upstream version 0.10

---
 perl/t/server.t | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

(limited to 'perl/t/server.t')

diff --git a/perl/t/server.t b/perl/t/server.t
index 08edd56..090387b 100755
--- a/perl/t/server.t
+++ b/perl/t/server.t
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-# $Id$
 #
 # t/server.t -- Tests for the wallet server API.
 #
@@ -398,31 +397,31 @@ DATE  set expires to $now
     by $admin from $host
 DATE  unset expires (was $now)
     by $admin from $host
-DATE  set acl_get to 1
+DATE  set acl_get to ADMIN (1)
     by $admin from $host
-DATE  unset acl_get (was 1)
+DATE  unset acl_get (was ADMIN (1))
     by $admin from $host
-DATE  set acl_store to 1
+DATE  set acl_store to ADMIN (1)
     by $admin from $host
-DATE  unset acl_store (was 1)
+DATE  unset acl_store (was ADMIN (1))
     by $admin from $host
-DATE  set owner to 1
+DATE  set owner to ADMIN (1)
     by $admin from $host
-DATE  set acl_get to 5
+DATE  set acl_get to empty (5)
     by $admin from $host
-DATE  set acl_store to 5
+DATE  set acl_store to empty (5)
     by $admin from $host
-DATE  unset acl_store (was 5)
+DATE  unset acl_store (was empty (5))
     by $admin from $host
-DATE  unset owner (was 1)
+DATE  unset owner (was ADMIN (1))
     by $admin from $host
-DATE  set owner to 1
+DATE  set owner to ADMIN (1)
     by $admin from $host
 DATE  set flag locked
     by $admin from $host
 DATE  clear flag locked
     by $admin from $host
-DATE  unset owner (was 1)
+DATE  unset owner (was ADMIN (1))
     by $admin from $host
 DATE  set flag unchanging
     by $admin from $host
@@ -528,7 +527,7 @@ is ($show, $expected, ' and show an object we own');
 $history = <<"EOO";
 DATE  create
     by $admin from $host
-DATE  set owner to 2
+DATE  set owner to user1 (2)
     by $admin from $host
 EOO
 $seen = $server->history ('base', 'service/user1');
@@ -609,13 +608,13 @@ is ($show, $expected, ' and show an object we jointly own');
 $history = <<"EOO";
 DATE  create
     by $admin from $host
-DATE  set owner to 4
+DATE  set owner to both (4)
     by $admin from $host
-DATE  set acl_show to 2
+DATE  set acl_show to user1 (2)
     by $admin from $host
-DATE  set acl_destroy to 3
+DATE  set acl_destroy to user2 (3)
     by $admin from $host
-DATE  set acl_flags to 2
+DATE  set acl_flags to user1 (2)
     by $admin from $host
 DATE  set flag unchanging
     by $user1 from $host
@@ -680,7 +679,7 @@ is ($show, $expected, ' and show an object we own');
 $history = <<"EOO";
 DATE  create
     by $admin from $host
-DATE  set owner to 3
+DATE  set owner to user2 (3)
     by $admin from $host
 EOO
 $seen = $server->history ('base', 'service/user2');
-- 
cgit v1.2.3