1 files changed, 23 insertions, 23 deletions

@@ -21,29 +21,29 @@
 
 (define test-file (make-pathname (list test-dir) "test" "gmi"))
 (define expected-doc
-  '((meta ("title" "a" "test" "document")
-          ("date" "2024-05-13T03:02:45Z")
-          ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61"))
-    (hdr1 ("a" "test" "document" "of" "some" "kind"))
-    (para ("here" "is" "a" "test" "document.")
-          ("it" "has" "paragraphs")
-          (link "example.com" "with" "links!")
-          ("and" "other" "things."))
-    (hdr2 ("a" "code" "example"))
-    (verb ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}"))
-    (hdr3 ("other" "examples"))
-    (quot ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky."))
-    (list ("list" "1") ("list" "2") ("list" "3"))
-    (link ("example.com" "link" "list" "1")
-          ("example.com" "link" "list" "2")
-          ("example.com" "link" "list" "3"))
-    (para ("ok," "now" "for" "another" "test:")
-          ("will" "*strong*" "in-line" "text" "be" "converted?")
-          ("as" "well" "as" "`code`," "_emph_" "and" "such?")
-          ("what" "if" "*i" "_nest_" "them*")
-          ("what" "if" "*i" "_nest" "them*" "wrong_" "?")
-          ("what" "about" "*breaking" "them")
-          ("over" "two" "lines?*"))))
+  '(((meta) ("title" "a" "test" "document")
+     ("date" "2024-05-13T03:02:45Z")
+     ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61"))
+    ((hdr1) ("a" "test" "document" "of" "some" "kind"))
+    ((para) ("here" "is" "a" "test" "document.")
+     ("it" "has" "paragraphs")
+     (link "example.com" "with" "links!")
+     ("and" "other" "things."))
+    ((hdr2) ("a" "code" "example"))
+    ((verb) ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}"))
+    ((hdr3) ("other" "examples"))
+    ((quot) ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky."))
+    ((list) ("list" "1") ("list" "2") ("list" "3"))
+    ((link) ("example.com" "link" "list" "1")
+     ("example.com" "link" "list" "2")
+     ("example.com" "link" "list" "3"))
+    ((para) ("ok," "now" "for" "another" "test:")
+     ("will" "*strong*" "in-line" "text" "be" "converted?")
+     ("as" "well" "as" "`code`," "_emph_" "and" "such?")
+     ("what" "if" "*i" "_nest_" "them*")
+     ("what" "if" "*i" "_nest" "them*" "wrong_" "?")
+     ("what" "about" "*breaking" "them")
+     ("over" "two" "lines?*"))))
 (define actual-doc (with-input-from-file test-file parse))
 
 (test "read" expected-doc actual-doc)