mirror of
https://github.com/duncs/clusterssh.git
synced 2025-04-21 09:09:06 +00:00
Add in host object
First cut of a host object - yet to be used by main script
This commit is contained in:
Duncan Ferguson
parent
3c72ca71f0
commit
7d77fe8cb0
2 changed files with 593 additions and 0 deletions
273
lib/App/ClusterSSH/Host.pm
Normal file
273
lib/App/ClusterSSH/Host.pm
Normal file
|
|
@ -0,0 +1,273 @@
|
|||
package App::ClusterSSH::Host;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use version;
|
||||
our $VERSION = version->new(qw$Revision: 1$);
|
||||
|
||||
use Carp;
|
||||
|
||||
use base qw/ App::ClusterSSH::Base /;
|
||||
|
||||
my %hostname_of;
|
||||
my %username_of;
|
||||
my %port_of;
|
||||
|
||||
sub new {
|
||||
my ( $class, %args ) = @_;
|
||||
|
||||
croak 'hostname is undefined' if ( !$args{hostname} );
|
||||
|
||||
# remove any keys undef values - must be a better way...
|
||||
foreach my $remove (qw/ port username /) {
|
||||
if ( !$args{$remove} && grep {/^$remove$/} keys(%args) ) {
|
||||
delete( $args{$remove} );
|
||||
}
|
||||
}
|
||||
|
||||
my $self = $class->SUPER::new(%args);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub get_hostname {
|
||||
my ($self) = @_;
|
||||
return $self->{hostname};
|
||||
}
|
||||
|
||||
sub get_username {
|
||||
my ($self) = @_;
|
||||
return $self->{username};
|
||||
}
|
||||
|
||||
sub set_username {
|
||||
my ( $self, $new_username ) = @_;
|
||||
$self->{username} = $new_username;
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub get_port {
|
||||
my ($self) = @_;
|
||||
return $self->{port};
|
||||
}
|
||||
|
||||
sub set_port {
|
||||
my ( $self, $new_port ) = @_;
|
||||
$self->{port} = $new_port;
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub parse_host_string {
|
||||
my ( $self, $host_string ) = @_;
|
||||
|
||||
$self->debug( 5,
|
||||
$self->loc('host_string="[_1]"', $host_string),
|
||||
);
|
||||
|
||||
# check for bracketed IPv6 addresses
|
||||
if ($host_string =~ m{
|
||||
\A
|
||||
(?:(.*?)@)? # username@ (optional)
|
||||
\[([\w:]*)\] # [<sequence of chars>]
|
||||
(?::(\d+))? # :port (optional)
|
||||
\z
|
||||
}xms
|
||||
)
|
||||
{
|
||||
$self->debug( 5,
|
||||
$self->loc('bracketed IPv6: u=[_1] h=[_2] p=[_3]', $1, $2, $3),
|
||||
);
|
||||
return __PACKAGE__->new(
|
||||
username => $1,
|
||||
hostname => $2,
|
||||
port => $3,
|
||||
|
||||
);
|
||||
}
|
||||
|
||||
# check for standard IPv4 host.domain/IP address
|
||||
if ($host_string =~ m{
|
||||
\A
|
||||
(?:(.*?)@)? # username@ (optional)
|
||||
([\w\.-]*) # hostname[.domain[.domain] | 123.123.123.123
|
||||
(?::(\d+))? # :port (optional)
|
||||
\z
|
||||
}xms
|
||||
)
|
||||
{
|
||||
$self->debug( 5,
|
||||
$self->loc('std IPv4: u=[_1] h=[_2] p=[_3]', $1, $2, $3),
|
||||
);
|
||||
return __PACKAGE__->new(
|
||||
username => $1,
|
||||
hostname => $2,
|
||||
port => $3,
|
||||
|
||||
);
|
||||
}
|
||||
|
||||
# Check for unbracketed IPv6 addresses as best we can...
|
||||
# first, see if there is a username to grab
|
||||
my $username;
|
||||
if ( $host_string =~ s/\A(?:(.*)@)// ) {
|
||||
# catch where @ is in host_string but no text before it
|
||||
$username = $1 || undef;
|
||||
}
|
||||
|
||||
# use number of colons as a possible indicator
|
||||
my $colon_count = $host_string =~ tr/://;
|
||||
|
||||
# if there are 7 colons assume its a full IPv6 address
|
||||
# also catch localhost address here
|
||||
if ( $colon_count == 7 || $host_string eq '::1' ) {
|
||||
$self->debug( 5,
|
||||
$self->loc('IPv6: u=[_1] h=[_2] p=[_3]', $username, $host_string, ''),
|
||||
);
|
||||
return __PACKAGE__->new(
|
||||
username => $username,
|
||||
hostname => $host_string,
|
||||
port => undef,
|
||||
|
||||
);
|
||||
}
|
||||
|
||||
if ( $colon_count > 1
|
||||
&& $colon_count < 8
|
||||
&& $host_string =~ m/:(\d+)$/xsm )
|
||||
{
|
||||
warn 'Ambiguous host string: "', $host_string, '"', $/;
|
||||
warn 'Assuming you meant "[', $host_string, ']"?', $/;
|
||||
|
||||
$self->debug( 5,
|
||||
$self->loc('Ambiguous IPv6 u=[_1] h=[_2] p=[_3]', $username, $host_string, '')
|
||||
);
|
||||
|
||||
return __PACKAGE__->new(
|
||||
username => $username,
|
||||
hostname => $host_string,
|
||||
port => undef,
|
||||
|
||||
);
|
||||
}
|
||||
else {
|
||||
my $port;
|
||||
if( $host_string =~ s/:(\d+)$// ) {
|
||||
$port = $1;
|
||||
}
|
||||
|
||||
my $hostname = $host_string;
|
||||
|
||||
$self->debug( 5,
|
||||
$self->loc('Default parse u=[_1] h=[_2] p=[_3]', $username, $hostname, $port)
|
||||
);
|
||||
|
||||
return __PACKAGE__->new(
|
||||
username => $username,
|
||||
hostname => $hostname,
|
||||
port => $port,
|
||||
|
||||
);
|
||||
}
|
||||
|
||||
# if we got this far, we didnt parse the host_string properly
|
||||
croak( 'Unable to parse hostname from "', $host_string, '"' );
|
||||
}
|
||||
|
||||
use overload (
|
||||
q{""} => sub {
|
||||
my ($self) = @_;
|
||||
return $self->{hostname};
|
||||
},
|
||||
fallback => 1,
|
||||
);
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1
|
||||
|
||||
ClusterSSH::Host
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use ClusterSSH::Host;
|
||||
|
||||
my $host = ClusterSSH::Host->new({
|
||||
hostname => 'hostname',
|
||||
});
|
||||
my $host = ClusterSSH::Host->parse_host_string('username@hostname:1234');
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Object representing a host. Include details to contact the host such as
|
||||
hostname/ipaddress, username and port.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=over 4
|
||||
|
||||
=item $host=ClusterSSH::Host->new ({ hostname => 'hostname' })
|
||||
|
||||
Create a new host object. 'hostname' is a required arg, 'username' and
|
||||
'port' are optional. Raises exception if an error occurs.
|
||||
|
||||
=item $host->get_hostname
|
||||
|
||||
=item $host->get_username
|
||||
|
||||
=item $host->get_port
|
||||
|
||||
Return specific details about the host
|
||||
|
||||
=item $host->set_username
|
||||
|
||||
=item $host->set_port
|
||||
|
||||
Set specific details about the host after its been created.
|
||||
|
||||
=item parse_host_string
|
||||
|
||||
Given a host string, returns a host object. Parses hosts such as
|
||||
|
||||
=over 4
|
||||
|
||||
=item host
|
||||
|
||||
=item 192.168.0.1
|
||||
|
||||
=item user@host
|
||||
|
||||
=item user@192.168.0.1
|
||||
|
||||
=item host:port
|
||||
|
||||
=item [1234:1234:1234::4567]:port
|
||||
|
||||
=item 1234:1234:1234::4567
|
||||
|
||||
=back
|
||||
|
||||
and so on. Cope with IPv4 and IPv6 addresses - raises a warning if the
|
||||
IPv6 address is ambiguous (i.e. in the last example, is the 4567 part of
|
||||
the IPv6 address or a port definition?) and assumes it is part of address.
|
||||
Use brackets to avoid seeing warning.
|
||||
|
||||
=back
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Duncan Ferguson (<duncan_j_ferguson (at) yahoo.co.uk>)
|
||||
|
||||
=head1 LICENSE AND COPYRIGHT
|
||||
|
||||
Copyright (c) 2009 Duncan Ferguson (<duncan_j_ferguson (at) yahoo.co.uk>).
|
||||
All rights reserved
|
||||
|
||||
This module is free software; you can redistribute it and/or
|
||||
modify it under the same terms as Perl itself. See L<perlartistic>.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
320
t/10host.t
Normal file
320
t/10host.t
Normal file
|
|
@ -0,0 +1,320 @@
|
|||
use strict;
|
||||
use warnings;
|
||||
|
||||
use FindBin qw($Bin);
|
||||
use lib "$Bin/../lib";
|
||||
|
||||
use Test::More;
|
||||
use Test::Trap;
|
||||
|
||||
BEGIN { use_ok("App::ClusterSSH::Host") }
|
||||
|
||||
my $host;
|
||||
|
||||
eval { $host = App::ClusterSSH::Host->new(); };
|
||||
like( $@, qr/hostname is undefined/, 'eval error - hostname is undefined (method)' );
|
||||
|
||||
diag('Checking IPv4 type addresses') if ( $ENV{TEST_VERBOSE} );
|
||||
$host = App::ClusterSSH::Host->new( hostname => 'hostname' );
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'hostname set' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host->set_port(2323);
|
||||
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host->set_username('username');
|
||||
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->new( hostname => 'hostname' );
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'hostname set' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host->set_port(2323);
|
||||
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host->set_username('username');
|
||||
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->new(
|
||||
hostname => 'hostname',
|
||||
port => 2323,
|
||||
);
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'hostname set' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host->set_username('username');
|
||||
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->new(
|
||||
hostname => 'hostname',
|
||||
username => 'username',
|
||||
);
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'hostname set' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host->set_port(2323);
|
||||
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->new(
|
||||
hostname => 'hostname',
|
||||
username => 'username',
|
||||
port => 2323,
|
||||
|
||||
);
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
diag('Parsing IPv4 hostname') if ( $ENV{TEST_VERBOSE} );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('hostname');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('host%name');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'host%name', 'stringify works' );
|
||||
is( $host->get_hostname, 'host%name', 'checking set works' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('hostname:2323');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('host%name:2323');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'host%name', 'stringify works' );
|
||||
is( $host->get_hostname, 'host%name', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@hostname:2323');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@host%name:2323');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'host%name', 'stringify works' );
|
||||
is( $host->get_hostname, 'host%name', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@hostname');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'hostname', 'stringify works' );
|
||||
is( $host->get_hostname, 'hostname', 'checking set works' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@host%name');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, 'host%name', 'stringify works' );
|
||||
is( $host->get_hostname, 'host%name', 'checking set works' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
diag('Parsing IPv4 IP address') if ( $ENV{TEST_VERBOSE} );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('127.0.0.1');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '127.0.0.1', 'stringify works' );
|
||||
is( $host->get_hostname, '127.0.0.1', 'checking set works' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('127.0.0.1:2323');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
|
||||
is( $host, '127.0.0.1', 'stringify works' );
|
||||
is( $host->get_hostname, '127.0.0.1', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@127.0.0.1:2323');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '127.0.0.1', 'stringify works' );
|
||||
is( $host->get_hostname, '127.0.0.1', 'checking set works' );
|
||||
is( $host->get_port, 2323, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@127.0.0.1');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
|
||||
is( $host, '127.0.0.1', 'stringify works' );
|
||||
is( $host->get_hostname, '127.0.0.1', 'checking set works' );
|
||||
is( $host->get_port, undef, 'checking set works' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
diag('Checking IPv6 type addresses') if ( $ENV{TEST_VERBOSE} );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('::1');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '::1', 'stringify works' );
|
||||
is( $host->get_hostname, '::1', 'checking set works' );
|
||||
is( $host->get_port, undef, 'port is undef' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@::1');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '::1', 'stringify works' );
|
||||
is( $host->get_hostname, '::1', 'checking set works' );
|
||||
is( $host->get_port, undef, 'port is undef' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('[::1]');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '::1', 'stringify works' );
|
||||
is( $host->get_hostname, '::1', 'checking set works' );
|
||||
is( $host->get_port, undef, 'port is undef' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@[::1]');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '::1', 'stringify works' );
|
||||
is( $host->get_hostname, '::1', 'checking set works' );
|
||||
is( $host->get_port, undef, 'port is undef' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('[::1]:22');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '::1', 'stringify works' );
|
||||
is( $host->get_hostname, '::1', 'checking set works' );
|
||||
is( $host->get_port, 22, 'checking port set' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('username@[::1]:22');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '::1', 'stringify works' );
|
||||
is( $host->get_hostname, '::1', 'checking set works' );
|
||||
is( $host->get_port, 22, 'checking port set' );
|
||||
is( $host->get_username, 'username', 'username is set' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
$host = App::ClusterSSH::Host->parse_host_string('2001:0db8:85a3:0000:0000:8a2e:0370:7334');
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '2001:0db8:85a3:0000:0000:8a2e:0370:7334', 'stringify works' );
|
||||
is( $host->get_hostname, '2001:0db8:85a3:0000:0000:8a2e:0370:7334', 'checking set works' );
|
||||
is( $host->get_port, undef, 'port is undef' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
$host = undef;
|
||||
is( $host, undef, 'starting afresh' );
|
||||
|
||||
trap {
|
||||
$host = App::ClusterSSH::Host->parse_host_string('2001:0db8:85a3::8a2e:0370:7334');
|
||||
};
|
||||
is( $trap->leaveby, 'return', 'returned ok' );
|
||||
is( $trap->die, undef, 'returned ok' );
|
||||
isa_ok( $host, "App::ClusterSSH::Host" );
|
||||
is( $host, '2001:0db8:85a3::8a2e:0370:7334', 'stringify works' );
|
||||
|
||||
is( $trap->stdout, '', 'Expecting no STDOUT' );
|
||||
is( $trap->stderr =~ tr/\n//, 2, 'got correct number of print lines' );
|
||||
like( $trap->stderr, qr/^Ambiguous host string: "2001:0db8:85a3::8a2e:0370:7334/, 'checking warning output' );
|
||||
like( $trap->stderr, qr/Assuming you meant "\[2001:0db8:85a3::8a2e:0370:7334\]"?/, 'checking warning output' );
|
||||
|
||||
is( $host->get_hostname, '2001:0db8:85a3::8a2e:0370:7334', 'checking set works' );
|
||||
is( $host->get_port, undef, 'port is undef' );
|
||||
is( $host->get_username, undef, 'username is undef' );
|
||||
|
||||
done_testing();
|
||||
Loading…
Add table
Reference in a new issue