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

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

diff --git a/test/perm-test5.pl b/test/perm-test5.pl
index 1da98966f7c6ac23bf0f83ddce410e815e9de14b..ebb40e369e85343d2cf382defdbf7b6f3a0cdc52 100755 (executable)
--- a/test/perm-test5.pl
+++ b/test/perm-test5.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;