diff --git a/encoding-reader.scm b/encoding-reader.scm
index 00be003..3875bb9 100644
--- 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")
diff --git a/test.scm b/test-shift-jis.scm
similarity index 100%
rename from test.scm
rename to test-shift-jis.scm
diff --git a/test-utf16-be.scm b/test-utf16-be.scm
new file mode 100644
index 0000000..96c25d0
Binary files /dev/null and b/test-utf16-be.scm differ
diff --git a/test-utf16-le.scm b/test-utf16-le.scm
new file mode 100644
index 0000000..356d6bc
Binary files /dev/null and b/test-utf16-le.scm differ