aboutsummaryrefslogtreecommitdiff
path: root/tests/services/configuration.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/services/configuration.scm')
-rw-r--r--tests/services/configuration.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/services/configuration.scm b/tests/services/configuration.scm
index 0debf8095b..334a1e409b 100644
--- a/tests/services/configuration.scm
+++ b/tests/services/configuration.scm
@@ -136,3 +136,15 @@
(test-assert "maybe value without serialization no procedure bound"
(not (defined? 'serialize-maybe-string)))
+
+(test-assert "maybe type, no default"
+ (unspecified?
+ (config-with-maybe-string/no-serialization-name
+ (config-with-maybe-string/no-serialization))))
+
+(test-assert "maybe type, with default"
+ (equal?
+ "foo"
+ (config-with-maybe-string/no-serialization-name
+ (config-with-maybe-string/no-serialization
+ (name "foo")))))