Allow overriding how arrays are built as well

2025-01-30 08:36:44 -06:00
parent 4649057e17
commit 4c685b1171
2 changed files with 27 additions and 12 deletions
--- a/test.scm
+++ b/test.scm
@@ -116,7 +116,14 @@
  (define-test "array"
    (assert-equal '() (json "[]"))
    (assert-equal '(1 "two" #f) (json "[1, \"two\", false]"))
-    (assert-equal '(() (())) (json "[[], [[]]]")))
+    (assert-equal '(() (())) (json "[[], [[]]]"))
+    (assert-equal "catdogsnail"
+                  (json "[\"cat\", \"dog\", \"snail\"]"
+                        #:arr-cons
+                        (lambda (a d)
+                          (if (null? d)
+                              a
+                              (string-append a d))))))
  (define-test "object"
    (assert-equal '() (json "{}"))
    (assert-equal '((cat . 1)