initial commit

api/perl/t/22-Monitoring-Livestatus-UNIX.t

@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+#########################
+
+use strict;
+use Test::More tests => 3;
+use IO::Socket::INET;
+BEGIN { use_ok('Monitoring::Livestatus::UNIX') };
+
+#########################
+# create object with single arg
+my $socket = "/tmp/blah.socket";
+my $ml = Monitoring::Livestatus::UNIX->new( $socket );
+isa_ok($ml, 'Monitoring::Livestatus', 'Monitoring::Livestatus::UNIX->new()');
+
+#########################
+# create object with hash args
+my $line_seperator        = 10;
+my $column_seperator      = 0;
+$ml = Monitoring::Livestatus::UNIX->new(
+                                    verbose             => 0,
+                                    socket              => $socket,
+                                    line_seperator      => $line_seperator,
+                                    column_seperator    => $column_seperator,
+                                );
+isa_ok($ml, 'Monitoring::Livestatus', 'Monitoring::Livestatus::UNIX->new(%args)');