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

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

diff --git a/test/perm-test6.pl b/test/perm-test6.pl
index 71e2a701669d003c13fb78539232394c05392d3e..87d9bf72a1c4a92ffb17cc7943932ad7d5307c70 100755 (executable)
--- a/test/perm-test6.pl
+++ b/test/perm-test6.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;