912bc6291a
The `opt` function falls back to global/default if the value is undefined, even if it is explicitly set to `undef`. `group_hosts_by` should behave the same.
113 lines
3.4 KiB
Perl
113 lines
3.4 KiB
Perl
use Test::More;
|
|
SKIP: { eval { require Test::Warnings; } or skip($@, 1); }
|
|
eval { require 'ddclient'; } or BAIL_OUT($@);
|
|
eval { require Data::Dumper; } or skip($@, 1);
|
|
Data::Dumper->import();
|
|
|
|
my $h1 = 'h1';
|
|
my $h2 = 'h2';
|
|
my $h3 = 'h3';
|
|
|
|
$ddclient::config{$h1} = {
|
|
common => 'common',
|
|
h1h2 => 'h1 and h2',
|
|
unique => 'h1',
|
|
falsy => 0,
|
|
maybeunset => 'unique',
|
|
};
|
|
$ddclient::config{$h2} = {
|
|
common => 'common',
|
|
h1h2 => 'h1 and h2',
|
|
unique => 'h2',
|
|
falsy => '',
|
|
maybeunset => undef, # should not be grouped with unset
|
|
};
|
|
$ddclient::config{$h3} = {
|
|
common => 'common',
|
|
h1h2 => 'unique',
|
|
unique => 'h3',
|
|
falsy => undef,
|
|
# maybeunset is intentionally not set
|
|
};
|
|
|
|
my @test_cases = (
|
|
{
|
|
desc => 'empty attribute set yields single group with all hosts',
|
|
groupby => [qw()],
|
|
want => [{cfg => {}, hosts => [$h1, $h2, $h3]}],
|
|
},
|
|
{
|
|
desc => 'common attribute yields single group with all hosts',
|
|
groupby => [qw(common)],
|
|
want => [{cfg => {common => 'common'}, hosts => [$h1, $h2, $h3]}],
|
|
},
|
|
{
|
|
desc => 'subset share a value',
|
|
groupby => [qw(h1h2)],
|
|
want => [
|
|
{cfg => {h1h2 => 'h1 and h2'}, hosts => [$h1, $h2]},
|
|
{cfg => {h1h2 => 'unique'}, hosts => [$h3]},
|
|
],
|
|
},
|
|
{
|
|
desc => 'all unique',
|
|
groupby => [qw(unique)],
|
|
want => [
|
|
{cfg => {unique => 'h1'}, hosts => [$h1]},
|
|
{cfg => {unique => 'h2'}, hosts => [$h2]},
|
|
{cfg => {unique => 'h3'}, hosts => [$h3]},
|
|
],
|
|
},
|
|
{
|
|
desc => 'combination',
|
|
groupby => [qw(common h1h2)],
|
|
want => [
|
|
{cfg => {common => 'common', h1h2 => 'h1 and h2'}, hosts => [$h1, $h2]},
|
|
{cfg => {common => 'common', h1h2 => 'unique'}, hosts => [$h3]},
|
|
],
|
|
},
|
|
{
|
|
desc => 'falsy values',
|
|
groupby => [qw(falsy)],
|
|
want => [
|
|
{cfg => {falsy => 0}, hosts => [$h1]},
|
|
{cfg => {falsy => ''}, hosts => [$h2]},
|
|
# undef intentionally becomes unset because undef always means "fall back to global or
|
|
# default".
|
|
{cfg => {}, hosts => [$h3]},
|
|
],
|
|
},
|
|
{
|
|
desc => 'set, unset, undef',
|
|
groupby => [qw(maybeunset)],
|
|
want => [
|
|
{cfg => {maybeunset => 'unique'}, hosts => [$h1]},
|
|
# undef intentionally becomes unset because undef always means "fall back to global or
|
|
# default".
|
|
{cfg => {}, hosts => [$h2, $h3]},
|
|
],
|
|
},
|
|
{
|
|
desc => 'missing attribute',
|
|
groupby => [qw(thisdoesnotexist)],
|
|
want => [{cfg => {}, hosts => [$h1, $h2, $h3]}],
|
|
},
|
|
);
|
|
|
|
for my $tc (@test_cases) {
|
|
my @got = ddclient::group_hosts_by([$h1, $h2, $h3], @{$tc->{groupby}});
|
|
# @got is used as a set of sets. Sort everything to make comparison easier.
|
|
$_->{hosts} = [sort(@{$_->{hosts}})] for @got;
|
|
@got = sort({
|
|
for (my $i = 0; $i < @{$a->{hosts}} && $i < @{$b->{hosts}}; ++$i) {
|
|
my $x = $a->{hosts}[$i] cmp $b->{hosts}[$i];
|
|
return $x if $x != 0;
|
|
}
|
|
return @{$a->{hosts}} <=> @{$b->{hosts}};
|
|
} @got);
|
|
is_deeply(\@got, $tc->{want}, $tc->{desc})
|
|
or diag(Data::Dumper->new([\@got, $tc->{want}],
|
|
[qw(got want)])->Sortkeys(1)->Useqq(1)->Dump());
|
|
}
|
|
|
|
done_testing();
|