Add EUC-JP test file

2019-05-12 17:24:27 +03:00 · 2019-05-12 17:24:27 +03:00 · eeeea2c93e
parent 0f7db91954
commit eeeea2c93e
2 changed files with 11 additions and 0 deletions
--- 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")
--- a/test-euc-jp.scm
+++ 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)