Add testsuite

1 files changed, 23 insertions, 0 deletions

diff --git a/t/Test/HAProxy.pm b/t/Test/HAProxy.pm
new file mode 100644
index 0000000..b5b8a19
--- /dev/null
+++ b/t/Test/HAProxy.pm
@@ -0,0 +1,23 @@
+package Test::HAProxy;
+use strict;
+use warnings;
+use parent 'Config::HAProxy';
+use File::Basename;
+use File::Temp;
+use autodie;
+
+sub new {
+    my $class = shift;
+
+    my $file = new File::Temp;
+    while (<main::DATA>) {
+	print $file $_;
+    }
+    close $file;
+    $class->SUPER::new($file->filename)->parse;
+}
+
+1;
+
+    
+