unit test for Character emoji with more codepoints

jcubic · Jan 17, 2024 · 10b2d5a · 10b2d5a
1 parent fe15152
commit 10b2d5a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/parser.scm b/tests/parser.scm
@@ -195,6 +195,12 @@
         (t.is #t #t)
         (t.is #t #t)))
 
+(test "parser: character emoji"
+      (lambda (t)
+        (let ((x #\💩))
+          (t.is (--> x (valueOf) 'length) 2)
+          (t.is (length (Array.from (x.valueOf))) 1))))
+
 (test "tokenizer: should create tokens for simple list"
       (lambda (t)
         (t.is (lips.tokenize "(foo bar baz)")