summaryrefslogtreecommitdiffabout
path: root/t/lint.t
Side-by-side diff
Diffstat (limited to 't/lint.t') (more/less context) (ignore whitespace changes)
-rw-r--r--t/lint.t33
1 files changed, 33 insertions, 0 deletions
diff --git a/t/lint.t b/t/lint.t
new file mode 100644
index 0000000..aa92fd1
--- a/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

Return to:

Send suggestions and report system problems to the System administrator.