From 4607a7b69c70e6476e0bd96f437b06bb1d39c254 Mon Sep 17 00:00:00 2001 From: hylo Date: Tue, 3 Jan 2023 23:35:46 +0100 Subject: [PATCH] test: add tests for decoder datatypes --- test/test-datatypes.scm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 test/test-datatypes.scm diff --git a/test/test-datatypes.scm b/test/test-datatypes.scm new file mode 100644 index 0000000..efd5270 --- /dev/null +++ b/test/test-datatypes.scm @@ -0,0 +1,40 @@ +(use-modules (srfi srfi-64) + (srfi srfi-19) + (toml)) + +(test-begin "decoder-datatypes-test") + +(define date (make-date 0 1 1 1 1 1 2000 0)) +(define toml-datetime "datetime = 2000-01-01T01:01:01Z") +(define scm-datetime (toml->scm toml-datetime)) +(test-equal scm-datetime `(("datetime" . ,date))) + +(define toml-float "float = 0.1") +(define scm-float (toml->scm toml-float)) +(test-equal scm-float '(("float" . 0.1))) + +(define toml-nan "nan = nan") +(define scm-nan (toml->scm toml-nan)) +(test-equal scm-nan '(("nan" . +nan.0))) + +(define toml-inf "inf = inf") +(define scm-inf (toml->scm toml-inf)) +(test-equal scm-inf '(("inf" . +inf.0))) + +(define toml-positive-inf "positive-inf = +inf") +(define scm-positive-inf (toml->scm toml-positive-inf)) +(test-equal scm-positive-inf '(("positive-inf" . +inf.0))) + +(define toml-negative-inf "negative-inf = -inf") +(define scm-negative-inf (toml->scm toml-negative-inf)) +(test-equal scm-negative-inf '(("negative-inf" . -inf.0))) + +(define toml-true "true = true") +(define scm-true (toml->scm toml-true)) +(test-equal scm-true '(("true" . #t))) + +(define toml-false "false = false") +(define scm-false (toml->scm toml-false)) +(test-equal scm-false '(("false" . #f))) + +(test-end "decoder-datatypes-test")