From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from gate001.proxmox.com (gate001.proxmox.com [45.144.208.40]) by lore.proxmox.com (Postfix) with ESMTPS id 56CB11FF0E0 for ; Thu, 23 Jul 2026 13:10:04 +0200 (CEST) Received: from gate001.proxmox.com (localhost.localdomain [127.0.0.1]) by gate001.proxmox.com (Proxmox) with ESMTP id 5EAC2214DD; Thu, 23 Jul 2026 13:09:57 +0200 (CEST) From: Elias Huhsovitz To: pve-devel@lists.proxmox.com Subject: [PATCH access-control v2 1/2] test: api: add tests for ACL modification endpoint Date: Thu, 23 Jul 2026 13:09:38 +0200 Message-ID: <20260723110939.84932-2-e.huhsovitz@proxmox.com> X-Mailer: git-send-email 2.47.3 In-Reply-To: <20260723110939.84932-1-e.huhsovitz@proxmox.com> References: <20260723110939.84932-1-e.huhsovitz@proxmox.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Bm-Milter-Handled: 55990f41-d878-4baa-be0a-ee34c49e34d2 X-Bm-Transport-Timestamp: 1784804958565 X-SPAM-LEVEL: Spam detection results: 0 AWL 0.008 Adjusted score from AWL reputation of From: address DMARC_MISSING 0.1 Missing DMARC policy KAM_DMARC_STATUS 0.01 Test Rule for DKIM or SPF Failure with Strict Alignment (newer systems) POISEN_SPAM_PILL 0.1 Meta: its spam POISEN_SPAM_PILL_1 0.1 random spam to be learned in bayes POISEN_SPAM_PILL_3 0.1 random spam to be learned in bayes RCVD_IN_DNSWL_LOW -0.7 Sender listed at https://www.dnswl.org/, low trust SPF_HELO_NONE 0.001 SPF: HELO does not publish an SPF Record SPF_PASS -0.001 SPF: sender matches SPF record Message-ID-Hash: EK3CGQSWWVQHXPQRI4CDDMHGIHHGPDJM X-Message-ID-Hash: EK3CGQSWWVQHXPQRI4CDDMHGIHHGPDJM X-MailFrom: e.huhsovitz@proxmox.com X-Mailman-Rule-Misses: dmarc-mitigation; no-senders; approved; loop; banned-address; emergency; member-moderation; nonmember-moderation; administrivia; implicit-dest; max-recipients; max-size; news-moderation; no-subject; digests; suspicious-header CC: Elias Huhsovitz X-Mailman-Version: 3.3.10 Precedence: list List-Id: Proxmox VE development discussion List-Help: List-Owner: List-Post: List-Subscribe: List-Unsubscribe: The `PUT /access/acl` endpoint previously lacked automated test coverage. Introduce `api-update-acl-test.pl` to verify the ACL modification logic. The tests cover the following scenarios: - Adding, modifying, and deleting ACLs for existing users, groups, and tokens. - Rejecting requests to add ACLs for non-existent entities. - Enforcing privilege boundaries by rejecting calls lacking the `Permissions.Modify` privilege. - Deleting ACLs for non-existent entities. Signed-off-by: Elias Huhsovitz --- src/test/api-tests.pl | 2 +- src/test/api-update-acl-test.pl | 297 ++++++++++++++++++++++++++++++++ 2 files changed, 298 insertions(+), 1 deletion(-) create mode 100644 src/test/api-update-acl-test.pl diff --git a/src/test/api-tests.pl b/src/test/api-tests.pl index a1a987a..e9c400a 100755 --- a/src/test/api-tests.pl +++ b/src/test/api-tests.pl @@ -7,6 +7,6 @@ use TAP::Harness; my $harness = TAP::Harness->new({ verbosity => -1 }); -my $result = $harness->runtests('api-get-permissions-test.pl'); +my $result = $harness->runtests('api-get-permissions-test.pl', 'api-update-acl-test.pl'); exit -1 if $result->{failed}; diff --git a/src/test/api-update-acl-test.pl b/src/test/api-update-acl-test.pl new file mode 100644 index 0000000..7099abf --- /dev/null +++ b/src/test/api-update-acl-test.pl @@ -0,0 +1,297 @@ +#!/usr/bin/env perl + +use v5.36; + +use lib qw(..); + +use Test::More; +use Test::MockModule; + +use PVE::AccessControl; +use PVE::RPCEnvironment; +use PVE::API2::ACL; + +# This test suite verifies the `PUT /access/acl` API endpoint. +# +# It mocks the cluster filesystem and the RPC environment to isolate +# the API logic from external dependencies. The tests pass mock +# configuration hashes directly to the API handler and verify the +# resulting state changes and error messages. +# +# The `get_base_cfg` function generates a clean, default configuration +# hash. The `before_each` helper resets the configuration and all mock +# behaviors before each test to isolate the test cases. + +my $current_cfg; + +# --- MOCKS --- + +my $api_acl_module = Test::MockModule->new('PVE::API2::ACL', no_auto => 1); +$api_acl_module->noop('cfs_update'); +$api_acl_module->redefine( + 'cfs_read_file' => sub($filename) { + die "unknown file '$filename'\n" if $filename ne 'user.cfg'; + return $current_cfg; + }, + 'cfs_write_file' => sub($filename, $data, $force_utf8 = undef) { + die "unknown file '$filename'\n" if $filename ne 'user.cfg'; + $current_cfg = $data; + }, +); + +my $acl_module = Test::MockModule->new('PVE::AccessControl', no_auto => 1); +$acl_module->redefine( + 'lock_user_config' => sub($code, @args) { + return $code->(@args); + }, +); + +my $rpcenv_module = Test::MockModule->new('PVE::RPCEnvironment', no_auto => 1); + +my $rpcenv = PVE::RPCEnvironment->init('cli'); +$rpcenv->set_user('admin@pve'); + +my ($handler, $handler_info) = PVE::API2::ACL->find_handler('PUT', ''); + +# --- HELPER FUNCTIONS --- + +sub get_base_cfg () { + return { + users => { + 'admin@pve' => { + enable => 1, + tokens => { + 'mytoken' => { privsep => 1 }, + }, + }, + }, + groups => { 'admin_group' => {} }, + roles => { + 'PVEAdmin' => { 'Permissions.Modify' => 1 }, + 'NoAccess' => {}, + }, + acl_root => {}, + }; +} + +sub before_each () { + $current_cfg = get_base_cfg(); + + $rpcenv_module->redefine( + 'permissions' => sub { + return { 'Permissions.Modify' => 1 }; + }, + ); +} + +sub run_update_acl($params) { + my $result = eval { $handler->handle($handler_info, $params) }; + return ($result, $@); +} + +# --- TEST CASES --- + +my $tests = [ + { + description => 'Add ACL for existing user succeeds', + update_acl_params => { + path => '/', + users => 'admin@pve', + roles => 'PVEAdmin', + }, + expected_acl_root => { + users => { 'admin@pve' => { PVEAdmin => 1 } }, + }, + }, + { + description => 'Delete ACL for existing user succeeds', + setup_acl_root => { + users => { 'admin@pve' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + users => 'admin@pve', + roles => 'PVEAdmin', + delete => 1, + }, + expected_acl_root => { + users => { 'admin@pve' => {} }, + }, + }, + { + description => 'Add ACL without Permissions.Modify fails', + permissions => {}, + update_acl_params => { + path => '/', + users => 'admin@pve', + roles => 'PVEAdmin', + }, + expected_error => qr/requires 'Permissions.Modify'/, + expected_acl_root => {}, + }, + { + description => 'Modify existing ACL to add a second role', + setup_acl_root => { + users => { 'admin@pve' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + users => 'admin@pve', + roles => 'NoAccess', + }, + expected_acl_root => { + users => { 'admin@pve' => { PVEAdmin => 1, NoAccess => 1 } }, + }, + }, + { + description => 'Modify existing ACL to change propagation flag', + setup_acl_root => { + users => { 'admin@pve' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + users => 'admin@pve', + roles => 'PVEAdmin', + propagate => 0, + }, + expected_acl_root => { + users => { 'admin@pve' => { PVEAdmin => 0 } }, + }, + }, + { + description => 'Modify existing ACL for group and token', + setup_acl_root => { + groups => { 'admin_group' => { PVEAdmin => 1 } }, + tokens => { 'admin@pve!mytoken' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + groups => 'admin_group', + tokens => 'admin@pve!mytoken', + roles => 'NoAccess', + propagate => 0, + }, + expected_acl_root => { + groups => { 'admin_group' => { PVEAdmin => 1, NoAccess => 0 } }, + tokens => { 'admin@pve!mytoken' => { PVEAdmin => 1, NoAccess => 0 } }, + }, + }, + { + description => 'Delete ACL for non-existing user', + setup_acl_root => { + users => { 'ghost@pve' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + users => 'ghost@pve', + roles => 'PVEAdmin', + delete => 1, + }, + expected_acl_root => { + users => { 'ghost@pve' => {} }, + }, + }, + { + description => 'Add ACL for non-existing user fails', + update_acl_params => { + path => '/', + users => 'ghost@pve', + roles => 'PVEAdmin', + }, + expected_error => qr/user 'ghost\@pve' does not exist/, + expected_acl_root => {}, + }, + { + description => 'Delete ACL for non-existing group', + setup_acl_root => { + groups => { 'ghost_group' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + groups => 'ghost_group', + roles => 'PVEAdmin', + delete => 1, + }, + expected_acl_root => { + groups => { 'ghost_group' => {} }, + }, + }, + { + description => 'Add ACL for non-existing group fails', + update_acl_params => { + path => '/', + groups => 'ghost_group', + roles => 'PVEAdmin', + }, + expected_error => qr/group 'ghost_group' does not exist/, + expected_acl_root => {}, + }, + { + description => 'Delete ACL for non-existing token', + setup_acl_root => { + tokens => { 'ghost@pve!ghost_token' => { PVEAdmin => 1 } }, + }, + update_acl_params => { + path => '/', + tokens => 'ghost@pve!ghost_token', + roles => 'PVEAdmin', + delete => 1, + }, + expected_acl_root => { + tokens => { 'ghost@pve!ghost_token' => {} }, + }, + }, + { + description => 'Add ACL for non-existing token fails', + update_acl_params => { + path => '/', + tokens => 'admin@pve!ghost_token', + roles => 'PVEAdmin', + }, + expected_error => qr/no such token/, + expected_acl_root => {}, + }, + { + description => 'Add ACL with non-existing role fails', + update_acl_params => { + path => '/', + users => 'admin@pve', + roles => 'InvalidRole', + }, + expected_error => qr/role 'InvalidRole' does not exist/, + expected_acl_root => {}, + }, +]; + +# --- TEST EXECUTION --- + +for my $case ($tests->@*) { + subtest $case->{description} => sub { + before_each(); + + if (exists $case->{setup_acl_root}) { + $current_cfg->{acl_root} = $case->{setup_acl_root}; + } + + if (exists $case->{permissions}) { + $rpcenv_module->redefine('permissions' => sub { return $case->{permissions} }); + } + + my ($res, $err) = run_update_acl($case->{update_acl_params}); + + if (exists $case->{expected_error}) { + like($err, $case->{expected_error}, 'API call fails with correct error message'); + is($res, undef, 'API call returns undef on failure'); + } else { + is($err, '', 'API call succeeds without throwing an error'); + } + + is_deeply( + $current_cfg->{acl_root}, + $case->{expected_acl_root}, + 'ACL root matches expected state', + ); + }; +} + +done_testing(); -- 2.47.3