sim: show sent emails in regression tests

[pve-ha-manager.git] / src / PVE / HA / Sim / TestEnv.pm

diff --git a/src/PVE/HA/Sim/TestEnv.pm b/src/PVE/HA/Sim/TestEnv.pm
index 0e6eced119979b7fc4cea30e300c2f2d328b4f03..9220513767c29a07de0f8c21a727b1004e2f1df4 100644 (file)
--- a/src/PVE/HA/Sim/TestEnv.pm
+++ b/src/PVE/HA/Sim/TestEnv.pm
@@ -3,7 +3,6 @@ package PVE::HA::Sim::TestEnv;
 use strict;
 use warnings;
 use POSIX qw(strftime EINTR);
-use Data::Dumper;
 use JSON; 
 use IO::File;
 use Fcntl qw(:DEFAULT :flock);
@@ -87,11 +86,11 @@ sub get_ha_agent_lock {
 }
 
 sub loop_start_hook {
-    my ($self, $starttime) = @_;
+    my ($self) = @_;
 
     $self->{loop_delay} = 0;
 
-    die "no starttime" if !defined($starttime);
+    my $starttime = $self->{hardware}->get_time();
     die "strange start time" if $starttime < $self->{cur_time};
 
     $self->{cur_time} = $starttime;
@@ -119,10 +118,4 @@ sub get_max_workers {
     return 0;
 }
 
-sub sendmail {
-    my ($self, $subject, $text) = @_;
-
-    # dismiss mails for regression tests
-}
-
 1;