shithub: sl

Info  •  Files  •  Log  •  Branches

add a test for mixes ascii and non-ascii runes printing

References: https://todo.sr.ht/~ft/femtolisp/34

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -478,5 +478,13 @@

 (define-macro (!! x y z) (+ z (apply !! (list x y))))

 (assert (eq? 4 (!! 5 2 1)))

+;; rune strings

+(let* ((b (buffer))

+       (s "1э1ю1я") ; mixed ascii and non-ascii

+       (es (string #\" s #\")))

+  (write (string-decode s) b)

+  (assert (equal? es (iostream->string b)))

+  (io-close b))

+

 (princ "all tests pass")

 (newline)