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