write real files
[pve-firewall.git] / fwtest.pl
index 4e3a637..867e21b 100755 (executable)
--- a/fwtest.pl
+++ b/fwtest.pl
@@ -3,6 +3,7 @@
 use strict;
 use lib qw(.);
 use PVE::Firewall;
+use File::Path;
 
 my $vmdata = {
     qemu => {
@@ -12,9 +13,25 @@ my $vmdata = {
        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);