diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-05-25 09:43:38 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-05-25 19:58:35 +0300 |
commit | 585a5a925342c357d46fbad273bfafc03bc33dcd (patch) | |
tree | 0aa81c8e85543ebaa25ef88292bb318ac4294e04 /t/lint.t | |
parent | edfeb103b85e10aa9e6825d3b92c5888fb4dea94 (diff) | |
download | config-haproxy-585a5a925342c357d46fbad273bfafc03bc33dcd.tar.gz config-haproxy-585a5a925342c357d46fbad273bfafc03bc33dcd.tar.bz2 |
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.
Diffstat (limited to 't/lint.t')
-rw-r--r-- | t/lint.t | 33 |
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 |