summaryrefslogtreecommitdiff
path: root/perl/t
diff options
context:
space:
mode:
authorJon Robertson <jonrober@stanford.edu>2010-01-21 19:24:59 -0800
committerJon Robertson <jonrober@stanford.edu>2010-01-21 19:24:59 -0800
commit42ff8edd0059988c5fa9af98ead4c19b3b52b37a (patch)
treef283ddeea0f4268658ba12ce4264d58d0a6a6f41 /perl/t
parent43c1420d37df58fdfc8b7e5ae229afd34a8bf070 (diff)
Added new ACL format to the object tests
Added the new ACL format to perl/t/object.t's idea of what an object's history was meant to be. This involved switching from acl id to acl name plus id -- ie: '1' to 'ADMIN (1)'.
Diffstat (limited to 'perl/t')
-rwxr-xr-xperl/t/object.t36
1 files changed, 18 insertions, 18 deletions
diff --git a/perl/t/object.t b/perl/t/object.t
index a40a412..46e67e5 100755
--- a/perl/t/object.t
+++ b/perl/t/object.t
@@ -255,11 +255,11 @@ ok (defined ($object), 'Recreating the object succeeds');
$output = <<"EOO";
$date create
by $user from $host
-$date set owner to 1
+$date set owner to ADMIN (1)
by $user from $host
-$date unset owner (was 1)
+$date unset owner (was ADMIN (1))
by $user from $host
-$date set owner to 1
+$date set owner to ADMIN (1)
by $user from $host
$date set expires to $now
by $user from $host
@@ -267,35 +267,35 @@ $date unset expires (was $now)
by $user from $host
$date set expires to $now
by $user from $host
-$date set acl_get to 1
+$date set acl_get to ADMIN (1)
by $user from $host
-$date unset acl_get (was 1)
+$date unset acl_get (was ADMIN (1))
by $user from $host
-$date set acl_get to 1
+$date set acl_get to ADMIN (1)
by $user from $host
-$date set acl_store to 1
+$date set acl_store to ADMIN (1)
by $user from $host
-$date unset acl_store (was 1)
+$date unset acl_store (was ADMIN (1))
by $user from $host
-$date set acl_store to 1
+$date set acl_store to ADMIN (1)
by $user from $host
-$date set acl_show to 1
+$date set acl_show to ADMIN (1)
by $user from $host
-$date unset acl_show (was 1)
+$date unset acl_show (was ADMIN (1))
by $user from $host
-$date set acl_show to 1
+$date set acl_show to ADMIN (1)
by $user from $host
-$date set acl_destroy to 1
+$date set acl_destroy to ADMIN (1)
by $user from $host
-$date unset acl_destroy (was 1)
+$date unset acl_destroy (was ADMIN (1))
by $user from $host
-$date set acl_destroy to 1
+$date set acl_destroy to ADMIN (1)
by $user from $host
-$date set acl_flags to 1
+$date set acl_flags to ADMIN (1)
by $user from $host
-$date unset acl_flags (was 1)
+$date unset acl_flags (was ADMIN (1))
by $user from $host
-$date set acl_flags to 1
+$date set acl_flags to ADMIN (1)
by $user from $host
$date set flag locked
by $user from $host