Env: allow debug logging

this can be helpful if someone wants to quickly add debug output for
a real world or simulator test, witout touching the regression tests

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/HA/Sim/TestEnv.pm b/src/PVE/HA/Sim/TestEnv.pm
index ceec2a52f07dbfdf4af21d5c1f1f7b52732c88dd..93aeede5ea264750e165b2d40095e4e3c859b186 100644 (file)
--- a/src/PVE/HA/Sim/TestEnv.pm
+++ b/src/PVE/HA/Sim/TestEnv.pm
@@ -39,6 +39,8 @@ sub get_time {
 sub log {
     my ($self, $level, $msg) = @_;
 
+    return if $level eq 'debug';
+
     chomp $msg;
 
     my $time = $self->get_time();