diff options
Diffstat (limited to '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 |