write real files

[pve-firewall.git] / fwtest.pl

#!/usr/bin/perl -w

use strict;
use lib qw(.);
use PVE::Firewall;
use File::Path;

my $vmdata = {
    qemu => {
	100 => {
	    net0 => 'rtl8139=9A:42:2D:0C:01:FF,bridge=vmbr0',
	},
	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',
	},
    },
};

my $testdir = "./testdir";
rmtree($testdir);
mkdir $testdir;

PVE::Firewall::compile($testdir, $vmdata);

PVE::Tools::run_command(['shorewall', 'check', $testdir]);

exit(0);