From 44d2a83d7c28e20db6e4dfe8c46bf486aea52868 Mon Sep 17 00:00:00 2001
From: Ken Barber <ken@bob.sh>
Date: Sat, 13 Apr 2013 23:08:20 +0100
Subject: [PATCH] Add system tests for socket property

Signed-off-by: Ken Barber <ken@bob.sh>
---
 spec/system/params_spec.rb | 45 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 spec/system/params_spec.rb

diff --git a/spec/system/params_spec.rb b/spec/system/params_spec.rb
new file mode 100644
index 0000000..ae17742
--- /dev/null
+++ b/spec/system/params_spec.rb
@@ -0,0 +1,45 @@
+require 'spec_helper_system'
+
+describe "param based tests:" do
+  def pp(params)
+    pm = <<-EOS
+firewall { '100 test':
+    EOS
+
+    params.each do |k,v| 
+      pm += <<-EOS
+  #{k} => #{v},
+      EOS
+    end
+
+    pm += <<-EOS
+}
+    EOS
+    pm
+  end
+
+  [
+    {
+      'table' => "'raw'",
+      'socket' => 'true',
+      'chain' => "'PREROUTING'",
+    },
+  ].each do |param|
+    it 'test param' do
+      iptables_flush_all_tables
+
+      ppm = pp(param)
+      puppet_apply(ppm) do |r|
+        r[:stderr].should == ''
+        r[:exit_code].should == 2
+      end
+
+      # check idempotency
+      puppet_apply(ppm) do |r|
+        r[:stderr].should == ''
+        r[:exit_code].should == 0
+      end
+    end
+  end
+
+end
-- 
2.45.2