The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 5;
use_ok('Test::Reporter::Transport::Socket');


{ 
  my $host = '127.0.0.1';
  my $port = 8080;
  my $trans = Test::Reporter::Transport::Socket->new( host => $host, port => $port );
  isa_ok( $trans, 'Test::Reporter::Transport::Socket' );
}

{ 
  my $trans = eval { Test::Reporter::Transport::Socket->new(); };
  ok( !$trans, 'Object is undefined' );
}

{
  my $host = [ '127.0.0.1' ];
  my $port = 8080;
  my $trans = Test::Reporter::Transport::Socket->new( host => $host, port => $port );
  isa_ok( $trans, 'Test::Reporter::Transport::Socket' );
}

{
  my $host = [];
  my $port = 8080;
  my $trans = eval { Test::Reporter::Transport::Socket->new( host => $host, port => $port ); };
  ok( !$trans, 'Object is undefined' );
}