Add UTF-16 tests

2019-05-12 17:22:44 +03:00
parent aac4a4bdec
commit 298a4337a8
4 changed files with 7 additions and 1 deletions
@@ -113,4 +113,10 @@
  (write x)
  (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")