test: mock PVE::Cluster in setup tests

Signed-off-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>

diff --git a/src/test/run_setup_tests.pl b/src/test/run_setup_tests.pl
index 678ff0f7e8c783c78f6c095f5215f8a3dfb260d6..bb66c016fd23865d07c979e9c6ba8f54a4005b73 100755 (executable)
--- a/src/test/run_setup_tests.pl
+++ b/src/test/run_setup_tests.pl
@@ -2,6 +2,9 @@
 
 use strict;
 use warnings;
+
+use Test::MockModule;
+
 use PVE::Tools qw(run_command);
 
 use lib qw(..);
@@ -100,6 +103,21 @@ sub run_test {
     print "TEST $testdir => OK\n";
 }
 
+my $cluster_module = Test::MockModule->new("PVE::Cluster");
+$cluster_module->mock(
+    cfs_read_file => sub {
+       my ($filename) = @_;
+       return {} if $filename eq 'datacenter.cfg';
+       die "illegal access to pmxcfs in test!\n";
+    },
+    cfs_write_file => sub {
+       die "illegal access to pmxcfs in test!\n";
+    },
+    cfs_lock_file => sub {
+       die "illegal access to pmxcfs in test!\n";
+    },
+);
+
 if (scalar(@ARGV)) {
 
     foreach my $testdir (@ARGV) {