initial commit

api/perl/t/21-Monitoring-Livestatus-INET.t

@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+
+#########################
+
+use strict;
+use Test::More tests => 3;
+use IO::Socket::INET;
+BEGIN { use_ok('Monitoring::Livestatus::INET') };
+
+#########################
+# create a tmp listener
+my $server = 'localhost:9999';
+my $listener = IO::Socket::INET->new(
+                                  ) or die("failed to open port as test listener: $!");
+#########################
+# create object with single arg
+my $ml = Monitoring::Livestatus::INET->new( $server );
+isa_ok($ml, 'Monitoring::Livestatus', 'Monitoring::Livestatus::INET->new()');
+
+#########################
+# create object with hash args
+my $line_seperator        = 10;
+my $column_seperator      = 0;
+$ml = Monitoring::Livestatus::INET->new(
+                                    verbose             => 0,
+                                    server              => $server,
+                                    line_seperator      => $line_seperator,
+                                    column_seperator    => $column_seperator,
+                                );
+isa_ok($ml, 'Monitoring::Livestatus', 'Monitoring::Livestatus::INET->new(%args)');