Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: Also test default() return value

Browse source
This commit is contained in:
Richard Hansen 2024-08-21 19:54:28 -04:00
parent f23070a114
commit 46bd2f1771
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
t/variable_defaults.pl
View file

@ -23,10 +23,14 @@ for my $tc (@test_cases) {
if ($tc->{def}{required}) { if ($tc->{def}{required}) {
is($tc->{def}{default}, undef, "'$tc->{desc}' (required) has no default"); is($tc->{def}{default}, undef, "'$tc->{desc}' (required) has no default");
} else { } else {
local %ddclient::variables = (merged => {var => $tc->{def}});
my $norm; my $norm;
my $valid = eval { $norm = ddclient::check_value($tc->{def}{default}, $tc->{def}); 1; }; my $default = ddclient::default('var');
diag("'$tc->{desc}' default: " . ($default // '<undefined>'));
is($default, $tc->{def}{default}, "'$tc->{desc}' default() return value matches default");
my $valid = eval { $norm = ddclient::check_value($default, $tc->{def}); 1; } or diag($@);
ok($valid, "'$tc->{desc}' (optional) has a valid default"); ok($valid, "'$tc->{desc}' (optional) has a valid default");
is($norm, $tc->{def}{default}, "'$tc->{desc}' default normalizes to itself") if $valid; is($norm, $default, "'$tc->{desc}' default normalizes to itself") if $valid;
} }
} }
done_testing(); done_testing();