use Test::More qw(no_plan);
use lib '/opt/openslx/lib';
# basic init
use OpenSLX::ConfigDB;
my $configDB = OpenSLX::ConfigDB->new;
$configDB->connect();
# fetch clients & systems
my @clients = sort { $a->{id} <=> $b->{id} } $configDB->fetchClientByFilter();
is(@clients, 3, 'should have got 3 clients (default, 1 and 3)');
my $defaultClient = shift @clients;
my $client1 = shift @clients;
my $client3 = shift @clients;
my @systems = sort { $a->{id} <=> $b->{id} } $configDB->fetchSystemByFilter();
is(@systems, 3, 'should have got 3 systems (default, 1 and 3)');
my $defaultSystem = shift @systems;
my $system1 = shift @systems;
my $system3 = shift @systems;
foreach my $client ($defaultClient, $client1, $client3) {
is(
my @systemIDs = $configDB->fetchSystemIDsOfClient($client->{id}),
0, "client $client->{id} has no system-IDs yet"
);
}
foreach my $system ($defaultSystem, $system1, $system3) {
is(
my @clientIDs = $configDB->fetchClientIDsOfSystem($system->{id}),
0, "system $system->{id} has no client-IDs yet"
);
}
ok(
$configDB->addSystemIDsToClient(1, [3]),
'system-ID 3 has been associated to client 1'
);
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(0)),
0, "default client should have no system-ID"
);
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(1)),
1, "client 1 should have one system-ID"
);
is($systemIDs[0], 3, "first system of client 1 should have ID 3");
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(3)),
0, "client 3 should have no system-ID"
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(0)),
0, "default system should have no client-IDs"
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(1)),
0, "system 1 should have no client-IDs"
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(3)),
1, "system 3 should have one client-ID"
);
is($clientIDs[0], 1, "first client of system 3 should have ID 1");
ok(
$configDB->addSystemIDsToClient(3, [1,3,3,1,3]),
'system-IDs 1 and 3 have been associated to client 3'
);
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(0)),
0, "default client should have no system-IDs"
);
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(1)),
1, "client 1 should have one system-ID"
);
is($systemIDs[0], 3, "first system of client 1 should have ID 3");
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(3)),
2, "client 3 should have two system-IDs"
);
is($systemIDs[0], 1, "first system of client 3 should have ID 1");
is($systemIDs[1], 3, "second system of client 3 should have ID 3");
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(0)),
0, "default system should have no client-ID"
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(1)),
1, "system 1 should have one client-ID"
);
is($clientIDs[0], 3, "first client of system 1 should have ID 3");
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(3)),
2, "system 3 should have two client-IDs"
);
is($clientIDs[0], 1, "first client of system 3 should have ID 1");
is($clientIDs[1], 3, "second client of system 3 should have ID 3");
ok(
$configDB->setClientIDsOfSystem(3, []),
'client-IDs of system 3 have been set to empty array'
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(3)),
0, "system 3 should have no client-IDs"
);
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(1)),
0, "client 1 should have no more system-IDs"
);
is(
@systemIDs = sort($configDB->fetchSystemIDsOfClient(3)),
1, "client 3 should have one system-ID"
);
is($systemIDs[0], 1, "first system of client 3 should have ID 1");
ok(
$configDB->removeClientIDsFromSystem(1, [1]),
'removing an unassociated client-ID should have no effect'
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(1)),
1, "system 1 should have one client-ID"
);
ok(
$configDB->removeClientIDsFromSystem(1, [3]),
'removing an associated client-ID should work'
);
is(
@clientIDs = sort($configDB->fetchClientIDsOfSystem(1)),
0, "system 1 should have no more client-ID"
);
$configDB->disconnect();
