~ chicken-core (master) 1ed444f03e90518c2a2e579d3927a84d4b4df6a7
commit 1ed444f03e90518c2a2e579d3927a84d4b4df6a7
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 31 22:23:05 2026 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 31 22:23:05 2026 +0200
add number-vector reader tests (by "klm`")
diff --git a/tests/srfi-4-tests.scm b/tests/srfi-4-tests.scm
index 3bfe458d..34962855 100644
--- a/tests/srfi-4-tests.scm
+++ b/tests/srfi-4-tests.scm
@@ -107,18 +107,29 @@
(let ((cases '(("#u8(1 2 #\\A)" #u8(1 2 65))
("#u8(\"abc\")" #u8(97 98 99))
("#u8\"abc\"" #u8(97 98 99))
+ ("#u8(\"abc\")" #u8(97 98 99))
+ ("#u8(\"ab\" \"c\")" #u8(97 98 99))
+ ("#u8(\"a\" \"b\" \"c\")" #u8(97 98 99))
+ ("#u8\"🐔\"" #u8(#xf0 #x9f #x90 #x94))
+ ("#u8(#\\🐔)" #u8(#xf0 #x9f #x90 #x94))
+ ("#u8(\"🐔\" \"🏫\")" #u8(#xf0 #x9f #x90 #x94 #xf0 #x9f #x8f #xab))
+ ("#u8(\"🐔\" \"\" \"🏫\")" #u8(#xf0 #x9f #x90 #x94 #xf0 #x9f #x8f #xab))
+ ("#u8(#\\🐔 \"🏫\")" #u8(#xf0 #x9f #x90 #x94 #xf0 #x9f #x8f #xab))
+ ("#u8(\"🐔\" #\\🏫)" #u8(#xf0 #x9f #x90 #x94 #xf0 #x9f #x8f #xab))
+ ("#u8(\"🐔\" 0 #\\🏫)" #u8(#xf0 #x9f #x90 #x94 0 #xf0 #x9f #x8f #xab))
("#u8(\"\")" #u8())
("#u8(\"\" \"a\")" #u8(97))
("#u8(\"a\" \"\")" #u8(97))
("#u8\"\"" #u8())
("#s8\"\"" #s8())
("#u64(\" \" #\\! 1 \"A\")" #u64(32 33 1 65))
- ("#u64(\" \" #\\! \"A\" 1)" #u64(32 33 65 1)))))
+ ("#u64(\" \" #\\! \"A\" 1)" #u64(32 33 65 1))
+ ("#u64(\"🐔\" \"🏫\")" #u64(#xf0 #x9f #x90 #x94 #xf0 #x9f #x8f #xab)))))
(do ((cs cases (cdr cs)))
((null? cs))
(let ((x (with-input-from-string (caar cs) read)))
(unless (equal? x (cadar cs))
- (error "failed" x (cadar cs))))))
+ (error "failed" x (caar cs))))))
;; complex vectors
Trap