conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

we don't have support for #x123 literals

This commit is contained in:
Yuichi Nishiwaki 2014-06-22 22:29:25 +09:00
parent 20427fb66a
commit e3c60b56e6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/r7rs-tests.scm
View File

@ -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))