diff --git a/source/texk/web2c/ptexdir/pfname.test b/source/texk/web2c/ptexdir/pfname.test
index aa19d6614..56826ac1f 100755
--- 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\342\221\240\343\216\235\342\205\246\351\226\222\357\275\261-sjis.tex" "b/source/texk/web2c/ptexdir/tests/fn\342\221\240\343\216\235\342\205\246\351\226\222\357\275\261-sjis.tex"
new file mode 100644
index 000000000..82e5f20b9
--- /dev/null
+++ "b/source/texk/web2c/ptexdir/tests/fn\342\221\240\343\216\235\342\205\246\351\226\222\357\275\261-sjis.tex"
@@ -0,0 +1,17 @@
+% fn�@�p�Z��-sjis.tex
+% Shift_JIS encoding
+\catcode`\{=1
+\catcode`\}=2
+
+\immediate\write16{JOB[\jobname] :: We are in fn�@�p�Z��-sjis.tex}
+
+\immediate\openout0=fn�@�p�Z��-sjis.txt
+\immediate\closeout0
+
+\input fn�@�p�Z��-sjis.txt
+
+\immediate\openout0=\jobname.txt
+\immediate\write0{abc ������ �p�q�r ���A���� �V�n�l}
+\immediate\closeout0
+
+\relax\end
diff --git a/source/texk/web2c/uptexdir/pfname.test b/source/texk/web2c/uptexdir/pfname.test
index 3d49453aa..1cd80d165 100755
--- 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