tiago/qemu-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test: collect mocked functions for QemuServer module

Browse source 
Also order them alphabetically.

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fiona Ebner 2025-07-02 18:27:51 +02:00 • committed by Fabian Grünbichler
parent 0210f0de17
commit f3a3e0e75f
1 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/test/MigrationTest/QmMock.pm
View file

@ -50,21 +50,6 @@ $inotify_module->mock(
},
);
$MigrationTest::Shared::qemu_server_module->mock(
nodename => sub {
return $nodename;
},
config_to_command => sub {
return ['mocked_kvm_command'];
},
vm_start_nolock => sub {
my ($storecfg, $vmid, $conf, $params, $migrate_opts) = @_;
$forcemachine = $params->{forcemachine}
or die "mocked vm_start_nolock - expected 'forcemachine' parameter\n";
$MigrationTest::Shared::qemu_server_module->original('vm_start_nolock')->(@_);
},
);
my $qemu_server_helpers_module = Test::MockModule->new("PVE::QemuServer::Helpers");
$qemu_server_helpers_module->mock(
vm_running_locally => sub {
@ -113,6 +98,9 @@ $MigrationTest::Shared::storage_module->mock(
);
$MigrationTest::Shared::qemu_server_module->mock(
config_to_command => sub {
return ['mocked_kvm_command'];
},
mon_cmd => sub {
my ($vmid, $command, %params) = @_;
@ -127,6 +115,9 @@ $MigrationTest::Shared::qemu_server_module->mock(
}
die "mon_cmd (mocked) - implement me: $command";
},
nodename => sub {
return $nodename;
},
run_command => sub {
my ($cmd_full, %param) = @_;
@ -149,6 +140,12 @@ $MigrationTest::Shared::qemu_server_module->mock(
file_set_contents("${RUN_DIR_PATH}/nbd_info", to_json($nbd));
return $nbd;
},
vm_start_nolock => sub {
my ($storecfg, $vmid, $conf, $params, $migrate_opts) = @_;
$forcemachine = $params->{forcemachine}
or die "mocked vm_start_nolock - expected 'forcemachine' parameter\n";
$MigrationTest::Shared::qemu_server_module->original('vm_start_nolock')->(@_);
},
);
our $cmddef = {