File guile-add-test-ja_JP.sjis.patch of Package guile.9256

diff --git a/test-suite/standalone/Makefile.am b/test-suite/standalone/Makefile.am
index 3a9d8d9da..327b57262 100644
--- a/test-suite/standalone/Makefile.am
+++ b/test-suite/standalone/Makefile.am
@@ -172,6 +172,10 @@ TESTS += test-mb-regexp
 check_SCRIPTS += test-use-srfi
 TESTS += test-use-srfi
 
+# test-ja_JP.sjis
+check_SCRIPTS += test-ja_JP.sjis
+TESTS += test-ja_JP.sjis
+
 # test-scm-c-read
 test_scm_c_read_SOURCES = test-scm-c-read.c
 test_scm_c_read_CFLAGS = ${test_cflags}
diff --git a/test-suite/standalone/test-ja_JP.sjis b/test-suite/standalone/test-ja_JP.sjis
new file mode 100755
index 000000000..2aa5ee690
--- /dev/null
+++ b/test-suite/standalone/test-ja_JP.sjis
@@ -0,0 +1,7 @@
+#!/bin/sh
+# Test whether guile can run initialization code using ja_JP.sjis locale
+# (bug #33044).
+export LC_CTYPE
+LC_CTYPE=ja_JP.sjis
+exec guile -q -s "$0" "$@"
+!#
diff --git a/test-suite/standalone/Makefile.in b/test-suite/standalone/Makefile.in
index 0f7ef8250..2478a7cc7 100644
--- a/test-suite/standalone/Makefile.in
+++ b/test-suite/standalone/Makefile.in
@@ -96,7 +96,8 @@ TESTS = test-system-cmds test-bad-identifiers test-require-extension \
 	test-list$(EXEEXT) test-unwind$(EXEEXT) \
 	test-conversion$(EXEEXT) test-loose-ends$(EXEEXT) \
 	test-fast-slot-ref test-mb-regexp test-use-srfi \
-	test-scm-c-read$(EXEEXT) test-scm-take-locale-symbol$(EXEEXT) \
+	test-ja_JP.sjis test-scm-c-read$(EXEEXT) \
+	test-scm-take-locale-symbol$(EXEEXT) \
 	test-scm-take-u8vector$(EXEEXT) \
 	test-scm-to-latin1-string$(EXEEXT) test-scm-values$(EXEEXT) \
 	test-scm-c-bind-keyword-arguments$(EXEEXT) \
@@ -1876,12 +1877,14 @@ noinst_LTLIBRARIES = $(am__append_1)
 # test-mb-regexp
 
 # test-use-srfi
+
+# test-ja_JP.sjis
 check_SCRIPTS = test-system-cmds test-bad-identifiers \
 	test-require-extension test-guile-snarf test-import-order \
 	test-command-line-encoding test-command-line-encoding2 \
 	test-language test-guild-compile $(am__append_3) \
 	test-fast-slot-ref test-mb-regexp test-use-srfi \
-	$(am__append_5)
+	test-ja_JP.sjis $(am__append_5)
 BUILT_SOURCES = $(am__append_2)
 EXTRA_DIST = test-import-order-a.scm test-import-order-b.scm \
 	test-import-order-c.scm test-import-order-d.scm \