From 8215a0dafbc638e6513fc506575075037271ab65 Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Wed, 14 May 2014 13:20:53 +0200 Subject: [PATCH 1/1] fwtester: do not set packet default values --- test/fwtester.pl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/test/fwtester.pl b/test/fwtester.pl index afbc7f6..555e151 100755 --- a/test/fwtester.pl +++ b/test/fwtester.pl @@ -395,18 +395,21 @@ sub simulate_firewall { my $from = delete $test->{from} || die "missing 'from' field"; my $to = delete $test->{to} || die "missing 'to' field"; my $action = delete $test->{action} || die "missing 'action'"; - + + my $testid = delete $test->{id}; + die "from/to needs to be different" if $from eq $to; my $pkg = { proto => 'tcp', - sport => '1234', - dport => '4321', - source => '10.11.12.13', - dest => '10.11.12.14', + sport => undef, + dport => undef, + source => undef, + dest => undef, }; while (my ($k,$v) = each %$test) { + die "unknown attribute '$k'\n" if !exists($pkg->{$k}); $pkg->{$k} = $v; } -- 2.39.2