Add UTF-16 tests

2019-05-12 17:22:44 +03:00 · 2019-05-12 17:22:44 +03:00 · 298a4337a8
parent aac4a4bdec
commit 298a4337a8
4 changed files with 7 additions and 1 deletions
--- a/encoding-reader.scm
+++ b/encoding-reader.scm
@ -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")
--- a/test-shift-jis.scm
+++ b/test-shift-jis.scm
--- a/test-utf16-be.scm
+++ b/test-utf16-be.scm
--- a/test-utf16-le.scm
+++ b/test-utf16-le.scm