#!/usr/bin/perl
use lib '../src';
+
use strict;
use warnings;
+
use Data::Dumper;
-use PVE::FirewallSimulator;
-use PVE::INotify;
-use PVE::Corosync;
-use Getopt::Long;
use File::Basename;
+use Getopt::Long;
use Net::IP;
+use PVE::Corosync;
+use PVE::FirewallSimulator;
+use PVE::INotify;
+
my $debug = 0;
sub print_usage_and_exit {
my $corosync_conf = PVE::Corosync::parse_conf($corosync_conf_fn, $raw_replaced);
PVE::FirewallSimulator::debug($debug);
-
+
my $testfilename = shift;
my $testid = shift;
}
};
if (my $err = $@) {
-
print Dumper($ruleset->{filter}) if !$debug;
-
print PVE::FirewallSimulator::get_trace() . "\n" if !$debug;
-
print "$filename line $.: $line";
-
print "test failed: $err\n";
-
exit(-1);
}
} else {