(u)ptex-*: add test for UTF8 (#136)

texjporg · Dec 20, 2022 · ef44d36 · ef44d36
1 parent 4503fc3
commit ef44d36
Show file tree

Hide file tree

Showing 12 changed files with 89 additions and 25 deletions.
diff --git a/source/texk/web2c/ptexdir/pfname.test b/source/texk/web2c/ptexdir/pfname.test
@@ -15,7 +15,7 @@ export TEXMFCNF TEXINPUTS
 # pTeX internal encoding
 fenc="utf8"
 for ienc in euc sjis; do
-for doc in fn fnさざ波; do
+for doc in fn fnさざ波-$fenc fn①㎝Ⅶ閒ｱ～-$fenc fn①㎝Ⅶ閒ｱ-$fenc fn£¥ÆØß§-$fenc; do
 
   echo '>>> Document:'$doc '  File Encoding:'$fenc '  Internal Encoding:'$ienc
   ./ptex -ini -interaction nonstopmode -jobname=$doc-$ienc -kanji=$fenc --kanji-internal=$ienc --shell-escape $doc.tex >ptests/$doc-$ienc-term.log || $rc=1
@@ -26,7 +26,7 @@ done
 done
 
 # pTeX, regacy encoding
-for fenc in sjis euc jis utf8; do
+for fenc in sjis euc jis; do
 for doc in fnさざ波-$fenc; do
 
   ienc=$fenc

diff --git a/source/texk/web2c/ptexdir/tests/fn.tex b/source/texk/web2c/ptexdir/tests/fn.tex
@@ -13,8 +13,11 @@
 \immediate\write1{\relax}
 \immediate\closeout1
 
+% current directory
 \input "|cat fn-tmp.tex"
 \input fn-tmp.tex
-\input fnさざ波.tex
+
+% vir kpathsearch
+\input fn±×÷§¶-utf8.tex
 
 \relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fn£¥ÆØß§-utf8.tex b/source/texk/web2c/ptexdir/tests/fn£¥ÆØß§-utf8.tex
@@ -0,0 +1,19 @@
+% fn£¥ÆØß§-utf8.tex
+% UTF-8 encoding, including Latin-1 characters
+\catcode`\{=1
+\catcode`\}=2
+
+\immediate\write16{JOB[\jobname] :: We are in fn£¥ÆØß§-utf8.tex}
+
+\immediate\openout0=\jobname.txt
+\immediate\write0{abc αβγ абв あア※￥ 天地人}
+\immediate\closeout0
+
+\immediate\openout1=fn£¥ÆØß§-utf8-tmp.tex
+\immediate\write1{\relax}
+\immediate\closeout1
+
+\input "|cat fn£¥ÆØß§-utf8-tmp.tex"
+\input fn£¥ÆØß§-utf8-tmp.tex
+
+\relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fn±×÷§¶-utf8.tex b/source/texk/web2c/ptexdir/tests/fn±×÷§¶-utf8.tex
@@ -0,0 +1,8 @@
+% fn±×÷§¶-utf8.tex
+% UTF-8 encoding, including Latin-1 & JIS X 0208 characters
+\catcode`\{=1
+\catcode`\}=2
+
+\immediate\write16{JOB[\jobname] :: We are in fn±×÷§¶-utf8.tex}
+
+\relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fn①㎝Ⅶ閒ｱ-utf8.tex b/source/texk/web2c/ptexdir/tests/fn①㎝Ⅶ閒ｱ-utf8.tex
@@ -0,0 +1,19 @@
+% fn£¥ÆØß-utf8.tex
+% UTF-8 encoding, including Latin-1 characters
+\catcode`\{=1
+\catcode`\}=2
+
+\immediate\write16{JOB[\jobname] :: We are in fn①㎝Ⅶ閒ｱ-utf8.tex}
+
+\immediate\openout0=\jobname.txt
+\immediate\write0{abc αβγ абв あア※￥ 天地人}
+\immediate\closeout0
+
+\immediate\openout1=fn①㎝Ⅶ閒ｱ-utf8-tmp.tex
+\immediate\write1{\relax}
+\immediate\closeout1
+
+\input "|cat fn①㎝Ⅶ閒ｱ-utf8-tmp.tex"
+\input fn①㎝Ⅶ閒ｱ-utf8-tmp.tex
+
+\relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fn①㎝Ⅶ閒ｱ～-utf8.tex b/source/texk/web2c/ptexdir/tests/fn①㎝Ⅶ閒ｱ～-utf8.tex
@@ -0,0 +1,19 @@
+% fn①㎝Ⅶ閒ｱ～-utf8.tex
+% Shift_JIS encoding, including CP932 platform-dependent characters
+\catcode`\{=1
+\catcode`\}=2
+
+\immediate\write16{JOB[\jobname] :: We are in fn①㎝Ⅶ閒ｱ～-utf8.tex}
+
+\immediate\openout0=\jobname.txt
+\immediate\write0{abc αβγ абв あア※￥ 天地人}
+\immediate\closeout0
+
+\immediate\openout1=fn①㎝Ⅶ閒ｱ～-utf8-tmp.tex
+\immediate\write1{\relax}
+\immediate\closeout1
+
+\input "|cat fn①㎝Ⅶ閒ｱ～-utf8-tmp.tex"
+\input fn①㎝Ⅶ閒ｱ～-utf8-tmp.tex
+
+\relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fnさざ波-euc.tex b/source/texk/web2c/ptexdir/tests/fnさざ波-euc.tex
@@ -13,7 +13,11 @@
 \immediate\write1{\relax}
 \immediate\closeout1
 
+% current directory
 \input "|cat fnさざ波-euc-tmp.tex"
 \input fnさざ波-euc-tmp.tex
 
+% vir kpathsearch
+\input fn±×÷§¶-utf8.tex
+
 \relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fnさざ波-jis.tex b/source/texk/web2c/ptexdir/tests/fnさざ波-jis.tex
@@ -13,7 +13,11 @@
 \immediate\write1{\relax}
 \immediate\closeout1
 
+% current directory
 \input "|cat fn$B$5$6GH(B-jis-tmp.tex"
 \input fn$B$5$6GH(B-jis-tmp.tex
 
+% vir kpathsearch
+\input fn$B!^!_!`!x"y(B-utf8.tex
+
 \relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fnさざ波-sjis.tex b/source/texk/web2c/ptexdir/tests/fnさざ波-sjis.tex
@@ -13,7 +13,11 @@
 \immediate\write1{\relax}
 \immediate\closeout1
 
+% current directory
 \input "|cat fnさざ波-sjis-tmp.tex"
 \input fnさざ波-sjis-tmp.tex
 
+% vir kpathsearch
+\input fn±×÷§¶-utf8.tex
+
 \relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fnさざ波-utf8.tex b/source/texk/web2c/ptexdir/tests/fnさざ波-utf8.tex
@@ -13,7 +13,11 @@
 \immediate\write1{\relax}
 \immediate\closeout1
 
+% current directory
 \input "|cat fnさざ波-utf8-tmp.tex"
 \input fnさざ波-utf8-tmp.tex
 
+% vir kpathsearch
+\input fn±×÷§¶-utf8.tex
+
 \relax\end
diff --git a/source/texk/web2c/ptexdir/tests/fnさざ波.tex b/source/texk/web2c/ptexdir/tests/fnさざ波.tex
diff --git a/source/texk/web2c/uptexdir/pfname.test b/source/texk/web2c/uptexdir/pfname.test
@@ -15,7 +15,7 @@ export TEXMFCNF TEXINPUTS
 # upTeX internal encoding
 fenc="utf8"
 for ienc in euc sjis uptex; do
-for doc in fn fnさざ波; do
+for doc in fn fnさざ波-$fenc fn①㎝Ⅶ閒ｱ～-$fenc fn①㎝Ⅶ閒ｱ-$fenc fn£¥ÆØß§-$fenc; do
 
   if [ "$COMSPEC" != "" ]; then
     echo "*** We guess OS is Windows."
@@ -37,7 +37,7 @@ done
 done
 
 # pTeX compatible mode, regacy encoding
-for fenc in sjis euc jis utf8; do
+for fenc in sjis euc jis; do
 for doc in fnさざ波-$fenc; do
 
   ienc=$fenc