Add UTF-16 tests
This commit is contained in:
parent
aac4a4bdec
commit
298a4337a8
|
@ -113,4 +113,10 @@
|
||||||
(write x)
|
(write x)
|
||||||
(newline))
|
(newline))
|
||||||
|
|
||||||
(for-each writeln (read-declarations-from-file "test.scm"))
|
(define (try-file filename)
|
||||||
|
(for-each writeln (read-declarations-from-file filename))
|
||||||
|
(newline))
|
||||||
|
|
||||||
|
(try-file "test-shift-jis.scm")
|
||||||
|
(try-file "test-utf16-be.scm")
|
||||||
|
(try-file "test-utf16-le.scm")
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue