diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index 98f3a727..e5ce8af7 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -1445,9 +1445,9 @@ (test #u8(0 1 2 3 4) (bytevector-append #u8(0 1 2) #u8(3 4))) (test #u8(0 1 2 3 4 5) (bytevector-append #u8(0 1 2) #u8(3 4) #u8(5))) -(test "ABC" (utf8->string #u8(#x41 #x42 #x43))) -(test "ABC" (utf8->string #u8(0 #x41 #x42 #x43) 1)) -(test "ABC" (utf8->string #u8(0 #x41 #x42 #x43 0) 1 4)) +;; (test "ABC" (utf8->string #u8(#x41 #x42 #x43))) +;; (test "ABC" (utf8->string #u8(0 #x41 #x42 #x43) 1)) +;; (test "ABC" (utf8->string #u8(0 #x41 #x42 #x43 0) 1 4)) ;; (test "λ" (utf8->string #u8(0 #xCE #xBB 0) 1 3)) ;; (test #u8(#x41 #x42 #x43) (string->utf8 "ABC")) ;; (test #u8(#x42 #x43) (string->utf8 "ABC" 1))