#!/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)');