]>
Commit | Line | Data |
---|---|---|
88c1865e DM |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use JSON; | |
f503a7bf FG |
6 | |
7 | use lib '.'; | |
88c1865e DM |
8 | |
9 | use PVE::Tools; | |
f7cb19c6 | 10 | |
7d33cb12 | 11 | use PVE::HA::Groups; |
88c1865e DM |
12 | use PVE::HA::Sim::TestHardware; |
13 | ||
14 | sub show_usage { | |
15 | print "usage: $0 <testdir>\n"; | |
16 | exit(-1); | |
17 | }; | |
18 | ||
88c1865e DM |
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 |