Add EUC-JP test file
This commit is contained in:
@@ -117,6 +117,7 @@
|
|||||||
(for-each writeln (read-declarations-from-file filename))
|
(for-each writeln (read-declarations-from-file filename))
|
||||||
(newline))
|
(newline))
|
||||||
|
|
||||||
|
(try-file "test-euc-jp.scm")
|
||||||
(try-file "test-shift-jis.scm")
|
(try-file "test-shift-jis.scm")
|
||||||
(try-file "test-utf16-be.scm")
|
(try-file "test-utf16-be.scm")
|
||||||
(try-file "test-utf16-le.scm")
|
(try-file "test-utf16-le.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)
|
||||||
Reference in New Issue
Block a user