#!perl
use strict;
use Data::Dumper;
use Net::ILO;
use Test::More tests => 15;
my $ilo_defaults = Net::ILO->new;
ok( !$ilo_defaults->address, 'Default address is null' );
ok( !$ilo_defaults->username, 'Default username is null' );
ok( !$ilo_defaults->password, 'Default password is null' );
ok( $ilo_defaults->_debug == 0, 'Default debug level is 0' );
ok( $ilo_defaults->port == 443, 'Default port is 443' );
my $ilo_hashref = Net::ILO->new({
address => '127.0.0.1',
username => 'Administrator',
password => '12345678',
debug => 2,
port => 2381,
});
ok( $ilo_hashref->address eq '127.0.0.1', 'Specifying address in constructor (hashref)' );
ok( $ilo_hashref->username eq 'Administrator', 'Specifying username in constructor (hashref)' );
ok( $ilo_hashref->password eq '12345678', 'Specifying password in constructor (hashref)' );
ok( $ilo_hashref->_debug == 2, 'Specifying debug level in constructor (hashref)' );
ok( $ilo_hashref->port == 2381, 'Specifying alternate HTTPS port in constructor (hashref)' );
my $ilo_hash = Net::ILO->new(
address => '192.168.0.1',
username => 'User',
password => 'ABCDEFG',
debug => 3,
port => 4567,
);
ok( $ilo_hash->address eq '192.168.0.1', 'Specifying address in constructor (hash)' );
ok( $ilo_hash->username eq 'User', 'Specifying username in constructor (hash)' );
ok( $ilo_hash->password eq 'ABCDEFG', 'Specifying password in constructor (hash)' );
ok( $ilo_hash->_debug == 3, 'Specifying debug level in constructor (hash)' );
ok( $ilo_hash->port == 4567, 'Specifying alternate HTTPS port in constructor (hash)' );