[PATCH ha-manager 5/7] pve-ha-tester: capture and fail for unexpected perl warnings

[Daniel Kral <d.kral@proxmox.com>]

Make any HA integration tests fail, which output some unexpected
warning.

This assumes that the HA stack's code always uses the
PVE::HA::Env::log() interface to output any relevant information for
users and the test cases.

This catches any uninitialized values in the test cases early in the
build/test process, which would have gone unnoticed before as these
weren't considered failed tests.

Signed-off-by: Daniel Kral <d.kral@proxmox.com>
---
 src/pve-ha-tester | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/pve-ha-tester b/src/pve-ha-tester
index b7dc4d66..5f13b460 100755
--- a/src/pve-ha-tester
+++ b/src/pve-ha-tester
@@ -19,6 +19,14 @@ sub show_usage {
 my $testdir = shift || show_usage();
 my $hardware = PVE::HA::Sim::TestHardware->new($testdir);
 
+$SIG{'__WARN__'} = sub {
+    my $err = $@;
+    my $message = $_[0];
+    chomp $message;
+    $hardware->log('warn', $message, 'perl');
+    $@ = $err;
+};
+
 $hardware->log('info', "starting simulation");
 
 eval { $hardware->run(); };
-- 
2.47.3