Check configuration file syntax before saving it

* Makefile.PL: Require IPC::Cmd
* lib/Config/HAProxy.pm (lint): New method.
(save): Call linter prior to saving. Take optional dry_run keyword
as argument.
* t/lint.t: New file.

1 files changed, 33 insertions, 0 deletions

diff --git a/t/lint.t b/t/lint.t
new file mode 100644
index 0000000..aa92fd1
--- /dev/null
+++ b/t/lint.t
@@ -0,0 +1,33 @@
+# -*- perl -*-
+use lib qw(t lib);
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+    plan tests => 7; 
+    use_ok('Test::HAProxy');
+}
+
+my $hp = new Test::HAProxy;
+isa_ok($hp,'Test::HAProxy');
+
+ok($hp->lint, 'haproxy -c -f');
+
+$hp->lint(0);
+ok(!$hp->lint);
+
+$hp->lint(1);
+ok($hp->lint, 'haproxy -c -f');
+
+$hp->lint(enable => 0);
+ok(!$hp->lint);
+
+$hp->lint(enable => 1, command => '/usr/local/bin/haproxy -c -f');
+ok($hp->lint, '/usr/local/bin/haproxy -c -f');
+
+__DATA__
+global
+    log /dev/log daemon
+    user haproxy
+    group haproxy