src/pve-ha-tester

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use JSON;
   6
   7 use lib '.';
   8
   9 use PVE::Tools;
  10 use PVE::HA::Config;
  11
  12 use PVE::HA::Sim::TestHardware;
  13
  14 sub show_usage {
  15     print "usage: $0 <testdir>\n";
  16     exit(-1);
  17 };
  18
  19 my $testdir = shift || show_usage();
  20 my $hardware = PVE::HA::Sim::TestHardware->new($testdir);
  21
  22 $hardware->log('info', "starting simulation");
  23
  24 eval { $hardware->run(); };
  25 if (my $err = $@) {
  26     $hardware->log('err', "exit simulation - $err ");
  27 } else {
  28     $hardware->log('info', "exit simulation - done");
  29 }
  30
  31 exit(0);
  32
  33
  34