blob: 1fb7083b675267e1d61133b983272a1c7d1be839 (
plain) (
tree)
|
|
use Test::More qw(no_plan);
use lib '/opt/openslx/lib';
# basic stuff
use_ok(OpenSLX::ConfigDB);
use strict;
use warnings;
# connecting and disconnecting
ok(my $configDB = OpenSLX::ConfigDB->new, 'can create object');
isa_ok($configDB, 'OpenSLX::ConfigDB');
{
# create a second object - should work and yield different objects
ok(my $configDB2 = OpenSLX::ConfigDB->new, 'can create another object');
cmp_ok($configDB, 'ne', $configDB2, 'should have two different objects now');
}
ok($configDB->connect(), 'connecting');
ok($configDB->disconnect(), 'disconnecting');
|