diff --git a/encoding-reader.scm b/encoding-reader.scm
index 3875bb9..e884b81 100644
--- a/encoding-reader.scm
+++ b/encoding-reader.scm
@@ -117,6 +117,7 @@
   (for-each writeln (read-declarations-from-file filename))
   (newline))
 
+(try-file "test-euc-jp.scm")
 (try-file "test-shift-jis.scm")
 (try-file "test-utf16-be.scm")
 (try-file "test-utf16-le.scm")
diff --git a/test-euc-jp.scm b/test-euc-jp.scm
new file mode 100644
index 0000000..faf0152
--- /dev/null
+++ b/test-euc-jp.scm
@@ -0,0 +1,10 @@
+#! /usr/bin/env gosh
+
+(declare-file
+ (coding EUC-JP)
+ (language scheme r7rs)
+ (copyright 2019 "Lassi Kortela")
+ (spdx-license-identifier "ISC"))
+
+(display "こんにちは世界")
+(newline)