path: root/src/config-db/t/14-group.t

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

is(
    my $group = $configDB->fetchGroupByFilter, undef,
    'no group should exist (scalar context)'
);

foreach my $requiredCol (qw(name)) {
    my $wrongGroup = {
        'name'     => 'name',
        'priority' => 41,
        'comment'  => 'has column missing',
    };
    delete $wrongGroup->{$requiredCol};
    ok(
        ! eval { my $groupID = $configDB->addGroup($wrongGroup); },
        "inserting a group without '$requiredCol' column should fail"
    );
}

is(
    my @groups = $configDB->fetchGroupByFilter, 0, 
    'still no group should exist (array context)'
);

my $inGroup1 = {
    'name'     => 'grp-1',
    'comment'  => '',
    'attrs'     => {
        'slxgrp'     => 'slxgrp',
        'start_snmp' => 'no',
        'start_sshd' => 'yes',
    },
};
is(
    my $group1ID = $configDB->addGroup($inGroup1), 1,
    'first group has ID 1'
);

my $inGroup2 = {
    'name'       => 'grp-2.0',
    'priority'   => 30,
    'comment'    => undef,
};
my $fullGroup = {
    'name'     => 'grp-nr-3',
    'priority' => 50,
    'comment'  => 'nuff said',
    'attrs' => {
        'automnt_dir'       => 'a',
        'automnt_src'       => 'b',
        'country'           => 'c',
        'dm_allow_shutdown' => 'd',
        'hw_graphic'        => 'e',
        'hw_monitor'        => 'f',
        'hw_mouse'          => 'g',
        'late_dm'           => 'h',
        'netbios_workgroup' => 'i',
        'nis_domain'        => 'j',
        'nis_servers'       => 'k',
        'sane_scanner'      => 'p',
        'scratch'           => 'q',
        'slxgrp'            => 'r',
        'start_alsasound'   => 's',
        'start_atd'         => 't',
        'start_cron'        => 'u',
        'start_dreshal'     => 'v',
        'start_ntp'         => 'w',
        'start_nfsv4'       => 'x',
        'start_printer'     => 'y',
        'start_samba'       => 'z',
        'start_snmp'        => 'A',
        'start_sshd'        => 'B',
        'start_syslog'      => 'C',
        'start_x'           => 'D',
        'start_xdmcp'       => 'E',
        'tex_enable'        => 'F',
        'timezone'          => 'G',
        'tvout'             => 'H',
        'vmware'            => 'I',
    },
};
ok(
    my ($group2ID, $group3ID) = $configDB->addGroup([
        $inGroup2, $fullGroup
    ]),
    'add two more groups'
);
is($group2ID, 2, 'group 2 should have ID=2');
is($group3ID, 3, 'group 3 should have ID=3');

# fetch group 3 by id and check all values
ok(my $group3 = $configDB->fetchGroupByID(3), 'fetch group 3');
is($group3->{id},                         '3',         'group 3 - id');
is($group3->{name},                       'grp-nr-3',  'group 3 - name');
is($group3->{priority},                   50,          'group 3 - priority');
is($group3->{comment},                    'nuff said', 'group 3 - comment');
is($group3->{attrs}->{automnt_dir},       'a',         'group 3 - attr automnt_dir');
is($group3->{attrs}->{automnt_src},       'b',         'group 3 - attr automnt_src');
is($group3->{attrs}->{country},           'c',         'group 3 - attr country');
is($group3->{attrs}->{dm_allow_shutdown}, 'd',         'group 3 - attr dm_allow_shutdown');
is($group3->{attrs}->{hw_graphic},        'e',         'group 3 - attr hw_graphic');
is($group3->{attrs}->{hw_monitor},        'f',         'group 3 - attr hw_monitor');
is($group3->{attrs}->{hw_mouse},          'g',         'group 3 - attr hw_mouse');
is($group3->{attrs}->{late_dm},           'h',         'group 3 - attr late_dm');
is($group3->{attrs}->{netbios_workgroup}, 'i',         'group 3 - attr netbios_workgroup');
is($group3->{attrs}->{nis_domain},        'j',         'group 3 - attr nis_domain');
is($group3->{attrs}->{nis_servers},       'k',         'group 3 - attr nis_servers');
is($group3->{attrs}->{sane_scanner},      'p',         'group 3 - attr sane_scanner');
is($group3->{attrs}->{scratch},           'q',         'group 3 - attr scratch');
is($group3->{attrs}->{slxgrp},            'r',         'group 3 - attr slxgrp');
is($group3->{attrs}->{start_alsasound},   's',         'group 3 - attr start_alsasound');
is($group3->{attrs}->{start_atd},         't',         'group 3 - attr start_atd');
is($group3->{attrs}->{start_cron},        'u',         'group 3 - attr start_cron');
is($group3->{attrs}->{start_dreshal},     'v',         'group 3 - attr start_dreshal');
is($group3->{attrs}->{start_ntp},         'w',         'group 3 - attr start_ftp');
is($group3->{attrs}->{start_nfsv4},       'x',         'group 3 - attr start_nfsv4');
is($group3->{attrs}->{start_printer},     'y',         'group 3 - attr start_printer');
is($group3->{attrs}->{start_samba},       'z',         'group 3 - attr start_samba');
is($group3->{attrs}->{start_snmp},        'A',         'group 3 - attr start_snmp');
is($group3->{attrs}->{start_sshd},        'B',         'group 3 - attr start_sshd');
is($group3->{attrs}->{start_syslog},      'C',         'group 3 - attr start_syslog');
is($group3->{attrs}->{start_x},           'D',         'group 3 - attr start_x');
is($group3->{attrs}->{start_xdmcp},       'E',         'group 3 - attr start_xdmcp');
is($group3->{attrs}->{tex_enable},        'F',         'group 3 - attr tex_enable');
is($group3->{attrs}->{timezone},          'G',         'group 3 - attr timezone');
is($group3->{attrs}->{tvout},             'H',         'group 3 - attr tvout');
is($group3->{attrs}->{vmware},            'I',         'group 3 - attr vmware');
is(keys %{$group3->{attrs}},              31,          'group 3 - attribute count');

# fetch group 2 by a filter on id and check all values
ok(
    my $group2 = $configDB->fetchGroupByFilter({ id => 2 }), 
    'fetch group 2 by filter on id'
);
is($group2->{id},       2,         'group 2 - id');
is($group2->{name},     'grp-2.0', 'group 2 - name');
is($group2->{priority}, 30,        'group 2 - priority');
is($group2->{comment},  undef,     'group 2 - comment');
is(keys %{$group2->{attrs}}, 0,    'group 2 - attribute count');

# fetch group 1 by filter on name and check all values
ok(
    my $group1 = $configDB->fetchGroupByFilter({ name => 'grp-1' }), 
    'fetch group 1 by filter on name'
);
is($group1->{id},                 1,         'group 1 - id');
is($group1->{name},               'grp-1',   'group 1 - name');
is($group1->{priority},           50,        'group 1 - priority');
is($group1->{comment},            '',        'group 1 - comment');
is(keys %{$group1->{attrs}},       3,        'group 1 - attribute count');
is($group1->{attrs}->{slxgrp},     'slxgrp', 'group 1 - attr slxgrp');
is($group1->{attrs}->{start_snmp}, 'no',     'group 1 - attr start_snmp');
is($group1->{attrs}->{start_sshd}, 'yes',    'group 1 - attr start_sshd');

# fetch groups 3 & 1 by id
ok(
    my @groups3And1 = $configDB->fetchGroupByID([3, 1]), 
    'fetch groups 3 & 1 by id'
);
is(@groups3And1, 2, 'should have got 2 groups');
# now sort by ID and check if we have really got 3 and 1
@groups3And1 = sort { $a->{id} cmp $b->{id} } @groups3And1;
is($groups3And1[0]->{id}, 1, 'first id should be 1');
is($groups3And1[1]->{id}, 3, 'second id should be 3');

# fetching groups by id without giving any should yield undef
is(
    $configDB->fetchGroupByID(), undef,
    'fetch groups by id without giving any'
);

# fetching groups by filter without giving any should yield all of them
ok(
    @groups = $configDB->fetchGroupByFilter(),
    'fetch groups by filter without giving any'
);
is(@groups, 3, 'should have got all three groups');

# fetch groups 1 & 2 by filter on priority
ok(
    my @groups1And3 = $configDB->fetchGroupByFilter({ priority => 50 }), 
    'fetch groups 1 & 3 by filter on priority'
);
is(@groups1And3, 2, 'should have got 2 groups');
# now sort by ID and check if we have really got 1 and 3
@groups1And3 = sort { $a->{id} cmp $b->{id} } @groups1And3;
is($groups1And3[0]->{id}, 1, 'first id should be 1');
is($groups1And3[1]->{id}, 3, 'second id should be 3');

# fetch group 2 by filter on comment being undef'd
ok(
    my @group2Only = $configDB->fetchGroupByFilter({ comment => undef }), 
    'fetch group 2 by filter on comment being undefined'
);
is(@group2Only, 1, 'should have got 1 group');
is($group2Only[0]->{id}, 2, 'first id should be 2');

# try to fetch with multi-column filter
ok(
    ($group1, $group3)
        = $configDB->fetchGroupByFilter({ priority => '50', id => 1 }), 
    'fetching group with priority=50 and id=1 should work'
);
is($group1->{name}, 'grp-1', 'should have got grp-1');
is($group3, undef, 'should not get grp-nr-3');

# try to fetch multiple occurrences of the same group, combined with
# some unknown IDs
ok(
    @groups1And3 = $configDB->fetchGroupByID([ 1, 21, 4-1, 1, 4, 1, 1 ]), 
    'fetch a complex set of groups by ID'
);
is(@groups1And3, 2, 'should have got 2 groups');
# now sort by ID and check if we have really got 1 and 3
@groups1And3 = sort { $a->{id} cmp $b->{id} } @groups1And3;
is($groups1And3[0]->{id}, 1, 'first id should be 1');
is($groups1And3[1]->{id}, 3, 'second id should be 3');

# filter groups by different attributes & values in combination
ok( 
    my @group1Only = $configDB->fetchGroupByFilter( {}, undef, { 
        start_snmp => 'no',
    } ),
    'fetch group 1 by filter on attribute start_snmp'
);

is(@group1Only, 1, 'should have got 1 group');
is($group1Only[0]->{id}, 1, 'first id should be 1');

ok(
    @group1Only = $configDB->fetchGroupByFilter( undef, 'id', { 
        start_snmp => 'no',
        tex_enable => undef,
    } ),
    'fetch group 1 by filter on attribute start_snmp + non-existing attr'
);
is(@group1Only, 1, 'should have got 1 group');
is($group1Only[0]->{id}, 1, 'first id should be 1');

ok(
    @group1Only = $configDB->fetchGroupByFilter( {
        name     => 'grp-1',
        priority => 50,
    }, 'id', {
        start_snmp => 'no',
        tex_enable => undef,
    } ),
    'fetch group 1 by multiple filter on values and attributes'
);
is(@group1Only, 1, 'should have got 1 group');
is($group1Only[0]->{id}, 1, 'first id should be 1');

is(
    $configDB->fetchGroupByFilter( {
        comment => 'xxx',
    }, 'id', {
        start_snmp => 'no',
        tex_enable => undef,
    } ),
    undef,
    'mismatch group 1 by filter with incorrect value'
);
is(
    $configDB->fetchGroupByFilter( {
        name => 'grp-1',
    }, 'id', {
        start_snmp => 'yes',
        tex_enable => undef,
    } ),
    undef,
    'mismatch group 1 by filter with incorrect attribute value'
);
is(
    $configDB->fetchGroupByFilter( {
        name => 'grp-1',
    }, 'id', {
        start_sshd => undef,
    } ),
    undef,
    'mismatch group 1 by filter with attribute not being empty'
);

# fetch groups 1 & 2 by filter on attribute start_samba not existing
ok(
    my @groups1And2 = $configDB->fetchGroupByFilter( {}, undef, {
        start_samba => undef,
    } ), 
    'fetch groups 1 & 2 by filter on attribute start_samba not existing'
);
is(@groups1And2, 2, 'should have got 2 groups');
# now sort by ID and check if we have really got 1 and 2
@groups1And2 = sort { $a->{id} cmp $b->{id} } @groups1And2;
is($groups1And2[0]->{id}, 1, 'first id should be 1');
is($groups1And2[1]->{id}, 2, 'second id should be 2');

# try to fetch a couple of non-existing groups by id
is($configDB->fetchGroupByID(-1), undef, 'group with id -1 should not exist');
is($configDB->fetchGroupByID(0), undef, 'group with id 0 should not exist');
is(
    $configDB->fetchGroupByID(1 << 31 + 1000), undef, 
    'trying to fetch another unknown group'
);

# try to fetch a couple of non-existing groups by filter
is(
    $configDB->fetchGroupByFilter({ id => 4 }), undef, 
    'fetching group with id=4 by filter should fail'
);
is(
    $configDB->fetchGroupByFilter({ name => 'grp-1.x' }), undef, 
    'fetching group with name="grp-1.x" should fail'
);
is(
    $configDB->fetchGroupByFilter({ priority => '22', id => 1 }), undef, 
    'fetching group with priority=22 and id=1 should fail'
);

# rename group 1 and then fetch it by its new name
ok($configDB->changeGroup(1, { name => q{GRP-'1'} }), 'changing group 1');
ok(
    $group1 = $configDB->fetchGroupByFilter({ name => q{GRP-'1'} }), 
    'fetching renamed group 1'
);
is($group1->{id},   1,          'really got group number 1');
is($group1->{name}, q{GRP-'1'}, q{really got group named "GRP-'1'"});

# changing nothing at all should succeed
ok($configDB->changeGroup(1), 'changing nothing at all in group 1');

# adding attributes should work
$inGroup1->{attrs}->{slxgrp} = 'slxgrp1';
$inGroup1->{attrs}->{vmware} = 'yes';
ok($configDB->changeGroup(1, $inGroup1), 'adding attrs to group 1');
$group1 = $configDB->fetchGroupByID(1);
is($group1->{attrs}->{slxgrp}, 'slxgrp1', 'attr slxgrp has correct value');
is($group1->{attrs}->{vmware}, 'yes', 'attr vmware has correct value');

# changing an attribute should work
$inGroup1->{attrs}->{vmware} = 'no';
ok($configDB->changeGroup(1, $inGroup1), 'changing vmware in group 1');
$group1 = $configDB->fetchGroupByID(1);
is($group1->{attrs}->{slxgrp}, 'slxgrp1', 'attr slxgrp has correct value');
is($group1->{attrs}->{vmware}, 'no', 'attr vmware has correct value');

# deleting an attribute should remove it
delete $inGroup1->{attrs}->{slxgrp};
ok($configDB->changeGroup(1, $inGroup1), 'changing slxgrp in group 1');
$group1 = $configDB->fetchGroupByID(1);
ok(!exists $group1->{attrs}->{slxgrp}, 'attr slxgrp should be gone');

# undef'ing an attribute should remove it, too
$inGroup1->{attrs}->{vmware} = undef;
ok($configDB->changeGroup(1, $inGroup1), 'undefining vmware in group 1');
$group1 = $configDB->fetchGroupByID(1);
ok(!exists $group1->{attrs}->{vmware}, 'attr vmware should be gone');

# changing a non-existing column should fail
ok(
    ! eval { $configDB->changeGroup(1, { xname => "xx" }) }, 
    'changing unknown colum should fail'
);

ok(! $configDB->changeGroup(1, { id => 23 }), 'changing id should fail');

# now remove an group and check if that worked
ok($configDB->removeGroup(2), 'removing group 2 should be ok');
is($configDB->fetchGroupByID(2, 'id'), undef, 'group 2 should be gone');
is($configDB->fetchGroupByID(1)->{id}, 1, 'group 1 should still exist');
is($configDB->fetchGroupByID(3)->{id}, 3, 'group 3 should still exist');

$configDB->disconnect();