use Test;
BEGIN { plan tests => 2 }
use strict;
use warnings;
use IPDevice::Allnet::ALL4000;
ok( 1 );
my %params = ( HOST => 'localhost',
USERNAME => 'testuser',
PASSWORD => 'testpass',
PORT => '80' );
my $all4000;
eval
{
$all4000 = new IPDevice::Allnet::ALL4000( %params );
};
ok( defined( $all4000 ), 1, 'Error creating new ALL4000 object: ' . $@ );