summaryrefslogtreecommitdiffstats
path: root/config-db/t/22-group_client_ref.t
diff options
context:
space:
mode:
authorSebastian Schmelzer2010-09-02 17:50:49 +0200
committerSebastian Schmelzer2010-09-02 17:50:49 +0200
commit416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 (patch)
tree4715f7d742fec50931017f38fe6ff0a89d4ceccc /config-db/t/22-group_client_ref.t
parentFix for the problem reported on the list (sed filter forgotten for the (diff)
downloadcore-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.gz
core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.xz
core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.zip
change dir structure
Diffstat (limited to 'config-db/t/22-group_client_ref.t')
-rw-r--r--config-db/t/22-group_client_ref.t186
1 files changed, 0 insertions, 186 deletions
diff --git a/config-db/t/22-group_client_ref.t b/config-db/t/22-group_client_ref.t
deleted file mode 100644
index ff9d6ca7..00000000
--- a/config-db/t/22-group_client_ref.t
+++ /dev/null
@@ -1,186 +0,0 @@
-use Test::More qw(no_plan);
-
-use strict;
-use warnings;
-
-use lib '/opt/openslx/lib';
-
-# basic init
-use OpenSLX::ConfigDB;
-
-my $configDB = OpenSLX::ConfigDB->new;
-$configDB->connect();
-
-# fetch groups & clients
-my @groups = sort { $a->{id} <=> $b->{id} } $configDB->fetchGroupByFilter();
-is(@groups, 2, 'should have got 2 groups (1 and 3)');
-my $group1 = shift @groups;
-my $group3 = shift @groups;
-
-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;
-
-foreach my $group ($group1, $group3) {
- is(
- my @clientIDs = $configDB->fetchClientIDsOfGroup($group->{id}),
- 0, "group $group->{id} has no client-IDs yet"
- );
-}
-
-foreach my $client ($defaultClient, $client1, $client3) {
- is(
- my @groupIDs = $configDB->fetchGroupIDsOfClient($client->{id}),
- 0, "client $client->{id} has no group-IDs yet"
- );
-}
-
-ok(
- $configDB->addClientIDsToGroup(1, [3]),
- 'client-ID 3 has been associated to group 1'
-);
-is(
- my @clientIDs = sort($configDB->fetchClientIDsOfGroup(1)),
- 1, "group 1 should have one client-ID"
-);
-is($clientIDs[0], 3, "first client of group 1 should have ID 3");
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(3)),
- 0, "group 3 should have no client-ID"
-);
-is(
- my @groupIDs = sort($configDB->fetchGroupIDsOfClient(0)),
- 0, "default client should have no group-IDs"
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(1)),
- 0, "client 1 should have no group-IDs"
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(3)),
- 1, "client 3 should have one group-ID"
-);
-is($groupIDs[0], 1, "first group of client 3 should have ID 1");
-
-ok(
- $configDB->addClientIDsToGroup(3, [1,3,3,1,3]),
- 'client-IDs 1 and 3 have been associated to group 3'
-);
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(1)),
- 1, "group 1 should have one client-ID"
-);
-is($clientIDs[0], 3, "first client of group 1 should have ID 3");
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(3)),
- 2, "group 3 should have two client-IDs"
-);
-is($clientIDs[0], 1, "first client of group 3 should have ID 1");
-is($clientIDs[1], 3, "second client of group 3 should have ID 3");
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(0)),
- 0, "default client should have no group-ID"
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(1)),
- 1, "client 1 should have one group-ID"
-);
-is($groupIDs[0], 3, "first group of client 1 should have ID 3");
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(3)),
- 2, "client 3 should have two group-IDs"
-);
-is($groupIDs[0], 1, "first group of client 3 should have ID 1");
-is($groupIDs[1], 3, "second group of client 3 should have ID 3");
-
-ok(
- $configDB->setGroupIDsOfClient(3, []),
- 'group-IDs of client 3 have been set to empty array'
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(3)),
- 0, "client 3 should have no group-IDs"
-);
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(1)),
- 0, "group 1 should have no more client-IDs"
-);
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(3)),
- 1, "group 3 should have one client-ID"
-);
-is($clientIDs[0], 1, "first client of group 3 should have ID 1");
-
-ok(
- $configDB->removeGroupIDsFromClient(1, [1]),
- 'removing an unassociated group-ID should have no effect'
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(1)),
- 1, "client 1 should have one group-ID"
-);
-ok(
- $configDB->removeGroupIDsFromClient(1, [3]),
- 'removing an associated group-ID should work'
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(1)),
- 0, "client 1 should have no more group-ID"
-);
-
-$configDB->addClient({
- 'name' => 'cli-4',
- 'mac' => '01:01:01:02:02:02',
- 'comment' => 'shortlived',
-});
-ok(
- $configDB->addGroupIDsToClient(4, [3]),
- 'default group has been associated to client 4'
-);
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(1)),
- 0, "group 1 should have no client-ID"
-);
-is(
- @clientIDs = sort($configDB->fetchClientIDsOfGroup(3)),
- 1, "group 3 should have one client-ID"
-);
-is($clientIDs[0], 4, "first client of group 3 should have ID 1");
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(0)),
- 0, "default client should have no group-IDs"
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(1)),
- 0, "client 1 should have no group-ID"
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(3)),
- 0, "client 3 should have no group-IDs"
-);
-is(
- @groupIDs = sort($configDB->fetchGroupIDsOfClient(4)),
- 1, "client 4 should have one group-ID"
-);
-is($groupIDs[0], 3, "first group of client 4 should have ID 3");
-
-ok(
- $configDB->removeClientIDsFromGroup(3, [6]),
- 'removing an unassociated client-ID should have no effect'
-);
-is(
- @groupIDs = sort($configDB->fetchClientIDsOfGroup(3)),
- 1, "group 3 should have one client-ID"
-);
-ok(
- $configDB->removeClient(4),
- 'removing a client should drop group associations, too'
-);
-is(
- @groupIDs = sort($configDB->fetchClientIDsOfGroup(3)),
- 0, "group 3 should have no more client-ID"
-);
-
-$configDB->disconnect();