(u)ptex-sjis: add test for CP932, it works only on Windows (#136)

texjporg · Dec 18, 2022 · 2bd69aa · 2bd69aa
1 parent 861becf
commit 2bd69aa
Show file tree

Hide file tree

Showing 3 changed files with 61 additions and 0 deletions.
diff --git a/source/texk/web2c/ptexdir/pfname.test b/source/texk/web2c/ptexdir/pfname.test
@@ -46,4 +46,26 @@ for doc in fnさざ波-$fenc; do
 done
 done
 
+
+# pTeX, CP932 characters
+for fenc in sjis; do
+for doc in fn①㎝Ⅶ閒ｱ-$fenc; do
+
+  ienc=$fenc
+  if [ "$COMSPEC" != "" ]; then
+    echo "*** We guess OS is Windows."
+    if [ $fenc != euc ]; then ienc="sjis"; fi
+  else
+    echo "*** We guess OS is not Windows."
+    if [ $fenc != sjis ]; then ienc="euc"; fi
+  fi
+
+  echo '>>> Document:'$doc '  File Encoding:'$fenc '  Internal Encoding:'$ienc
+  ./ptex -ini -interaction nonstopmode -jobname=$doc-$ienc -kanji=$fenc --kanji-internal=$ienc $doc.tex >ptests/$doc-$fenc-term.log || $rc=3
+  mv $doc-$ienc.txt $doc-$ienc.log ptests/
+  diff ptests/$doc-$ienc.txt $srcdir/ptexdir/tests/fn-$fenc.txt || $rc=4
+
+done
+done
+
 exit $rc
diff --git a/source/texk/web2c/ptexdir/tests/fn①㎝Ⅶ閒ｱ-sjis.tex b/source/texk/web2c/ptexdir/tests/fn①㎝Ⅶ閒ｱ-sjis.tex
@@ -0,0 +1,17 @@
+% fn①㎝Ⅶ閒ｱ-sjis.tex
+% Shift_JIS encoding
+\catcode`\{=1
+\catcode`\}=2
+
+\immediate\write16{JOB[\jobname] :: We are in fn①㎝Ⅶ閒ｱ-sjis.tex}
+
+\immediate\openout0=fn①㎝Ⅶ閒ｱ-sjis.txt
+\immediate\closeout0
+
+\input fn①㎝Ⅶ閒ｱ-sjis.txt
+
+\immediate\openout0=\jobname.txt
+\immediate\write0{abc αβγ абв あア※￥ 天地人}
+\immediate\closeout0
+
+\relax\end
diff --git a/source/texk/web2c/uptexdir/pfname.test b/source/texk/web2c/uptexdir/pfname.test
@@ -64,4 +64,26 @@ for doc in fnさざ波-$fenc; do
 done
 done
 
+
+# pTeX compatible mode, CP932 characters
+for fenc in sjis; do
+for doc in fn①㎝Ⅶ閒ｱ-$fenc; do
+
+  ienc=$fenc
+  if [ "$COMSPEC" != "" ]; then
+    echo "*** We guess OS is Windows."
+    if [ $fenc != euc ]; then ienc="sjis"; fi
+  else
+    echo "*** We guess OS is not Windows."
+    if [ $fenc != sjis ]; then ienc="euc"; fi
+  fi
+
+  echo '>>> Document:'$doc '  File Encoding:'$fenc '  Internal Encoding:'$ienc
+  ./ptex -ini -interaction nonstopmode -jobname=$doc-$ienc -kanji=$fenc --kanji-internal=$ienc $doc.tex >uptests/$doc-$fenc-term.log || $rc=3
+  mv $doc-$ienc.txt $doc-$ienc.log uptests/
+  diff uptests/$doc-$ienc.txt $srcdir/ptexdir/tests/fn-$fenc.txt || $rc=4
+
+done
+done
+
 exit $rc