From 46bd2f177120b885179afb77949e3483848f4eb9 Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Wed, 21 Aug 2024 19:54:28 -0400
Subject: [PATCH] tests: Also test `default()` return value

---
 t/variable_defaults.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/t/variable_defaults.pl b/t/variable_defaults.pl
index 09dc92c..b1ac203 100644
--- a/t/variable_defaults.pl
+++ b/t/variable_defaults.pl
@@ -23,10 +23,14 @@ for my $tc (@test_cases) {
     if ($tc->{def}{required}) {
         is($tc->{def}{default}, undef, "'$tc->{desc}' (required) has no default");
     } else {
+        local %ddclient::variables = (merged => {var => $tc->{def}});
         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");
-        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();