blob: 903783c4ddc21713ff2b3e2c06dd3ea190854682 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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');
|
