src/config-db/t/01-basics.t


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');