roles()/permissions(): also return propagate flag

[pve-access-control.git] / test / perm-test1.pl

diff --git a/test/perm-test1.pl b/test/perm-test1.pl
index 3efc79f7e0d9dc3d6f6fe079c1f20c15751ada52..e1bf1c759bc660504e1a3a57e1406e86d70024b7 100755 (executable)
--- a/test/perm-test1.pl
+++ b/test/perm-test1.pl
@@ -14,8 +14,8 @@ $rpcenv->init_request(userconfig => $cfgfn);
 sub check_roles {
     my ($user, $path, $expected_result) = @_;
 
-    my @ra = PVE::AccessControl::roles($rpcenv->{user_cfg}, $user, $path);
-    my $res = join(',', sort @ra);
+    my $roles = PVE::AccessControl::roles($rpcenv->{user_cfg}, $user, $path);
+    my $res = join(',', sort keys %$roles);
 
     die "unexpected result\nneed '${expected_result}'\ngot '$res'\n"
        if $res ne $expected_result;
@@ -38,7 +38,6 @@ sub check_permission {
        if $res ne $expected_result;
 
     print "PERM:$path:$user:$res\n";
-
 }
 
 check_roles('max@pve', '/', '');