lib/lisp/tests/unparse-tests.nydp in nydp-0.5.1 vs lib/lisp/tests/unparse-tests.nydp in nydp-0.6.0

@@ -1,8 +1,14 @@
 (examples-for to-string
-  ("unquote"           (to-string '(unquote a))          ",a"           )
-  ("quote"             (to-string '(quote a))            "'a"           )
-  ("quasiquote"        (to-string '(quasiquote a))       "`a"           )
-  ("unquote-splicing"  (to-string '(unquote-splicing a)) ",@a"          )
-  ("brace-list"        (to-string '(brace-list a))       "{ a }"        )
-  ("brace-list"        (to-string '(brace-list a b))     "{ a b }"      )
-  ("brace-list"        (to-string '(brace-list a b c d)) "{ a b c d }"  ))
+  ("unquote"           (to-string '(unquote a))           ",a"           )
+  ("quote"             (to-string '(quote a))             "'a"           )
+  ("quasiquote"        (to-string '(quasiquote a))        "`a"           )
+  ("unquote-splicing"  (to-string '(unquote-splicing a))  ",@a"          )
+  ("percent-syntax"    (to-string '(percent-syntax || a)) "%a"           )
+  ("colon-syntax"      (to-string '(colon-syntax a b c))  "a:b:c"        )
+  ("dot-syntax"        (to-string '(dot-syntax a b c))    "a.b.c"        )
+  ("brace-list"        (to-string '(brace-list a))        "{ a }"        )
+  ("brace-list"        (to-string '(brace-list a b))      "{ a b }"      )
+  ("brace-list"        (to-string '(brace-list a b c d))  "{ a b c d }"  )
+  ("prefix-list"
+   (to-string '((prefix-list "%a.item" (href path)) anchor))
+   "(%a.item(href path) anchor)"))