use strict;
use lib qw(.);
use PVE::Firewall;
+use File::Path;
my $vmdata = {
qemu => {
101 => {
net0 => 'rtl8139=0E:9D:ED:CC:9B:ED,bridge=vmbr0',
},
+ 102 => {
+ zone => 'z1',
+ net0 => 'rtl8139=0E:9D:ED:CC:AA:ED,bridge=vmbr0',
+ net1 => 'rtl8139=0E:9D:ED:CC:CC:ED,bridge=vmbr1',
+ },
+ 103 => {
+ zone => 'z1',
+ net0 => 'rtl8139=0E:9D:ED:CC:BC:ED,bridge=vmbr0',
+ net1 => 'rtl8139=0E:9D:ED:CC:BC:AA,tag=5,bridge=vmbr0',
+ },
},
};
-PVE::Firewall::compile($vmdata);
+my $testdir = "./testdir";
+rmtree($testdir);
+mkdir $testdir;
+
+PVE::Firewall::compile($testdir, $vmdata);
+
+PVE::Tools::run_command(['shorewall', 'check', $testdir]);
exit(0);