more tests for pTeX tools

git-svn-id: svn://tug.org/texlive/trunk@18053 c570f23f-e606-0410-a88d-b1316a301751

11 files changed, 792 insertions, 2 deletions

diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index bd926999d09..e908b8292e7 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,12 @@
+2010-04-30  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* pdvitype.test: Use installed cm fonts.
+	* sample.test, yokotate.test (new): Shell scripts to test
+	pDVItype and pPLtoTF/pTFtoPL with yoko and tate fonts.
+	* tests/goth10.tfm tests/sample.dvi (new): Data for sample.test.
+	* tests/{min10,tmin10}.{pl,tfm} (new): Data for yokotate.test.
+	* am/ptex.am: Add the new tests.
+
 2010-04-26  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* pbibtex.ch: Remove unused code 'Check if |max_print_line|...'.
diff --git a/Build/source/texk/web2c/ptexdir/am/ptex.am b/Build/source/texk/web2c/ptexdir/am/ptex.am
index d621d079cca..281fc749e69 100644
--- a/Build/source/texk/web2c/ptexdir/am/ptex.am
+++ b/Build/source/texk/web2c/ptexdir/am/ptex.am
@@ -138,6 +138,8 @@ pdvitype.web: tie$(EXEEXT) dvitype.web dvitype.ch
 	$(tie) -m pdvitype.web dvitype.web dvitype.ch
 EXTRA_DIST += ptexdir/pdvitype.ch
 
+ptex_tests += ptexdir/sample.test
+
 ## pPLtoTF
 ## 
 nodist_ppltotf_SOURCES = ppltotf.c ppltotf.h
@@ -170,6 +172,8 @@ ptftopl.web: tie$(EXEEXT) tftopl.web tftopl.ch
 	$(tie) -m ptftopl.web tftopl.web tftopl.ch
 EXTRA_DIST += ptexdir/ptftopl.ch
 
+ptex_tests += ptexdir/yokotate.test
+
 ## 
 EXTRA_DIST += \
 	ptexdir/COPYRIGHT \
@@ -198,6 +202,13 @@ DISTCLEANFILES += tests/xstory.dvityp tests/xpagenum.typ
 DISTCLEANFILES += tests/xcmr10.tfm
 ## ptexdir/ptftopl.test
 DISTCLEANFILES += tests/xcmr10.pl
+## ptexdir/sample.test
+EXTRA_DIST += ptexdir/tests/goth10.tfm ptexdir/tests/sample.dvi
+DISTCLEANFILES += tests/xsample.typ
+## ptexdir/yokotate.test
+EXTRA_DIST += ptexdir/tests/min10.pl ptexdir/tests/min10.tfm
+EXTRA_DIST += ptexdir/tests/tmin10.pl ptexdir/tests/tmin10.tfm
+DISTCLEANFILES += tests/x*min10.*
 ## ptexdir/ptrip.test
 EXTRA_DIST += ptexdir/ptrip.diffs
 .PHONY: ptrip-clean
diff --git a/Build/source/texk/web2c/ptexdir/pdvitype.test b/Build/source/texk/web2c/ptexdir/pdvitype.test
index 9c2c343ccb1..602ed66ea96 100755
--- a/Build/source/texk/web2c/ptexdir/pdvitype.test
+++ b/Build/source/texk/web2c/ptexdir/pdvitype.test
@@ -5,9 +5,15 @@
 
 test -d tests || mkdir -p tests
 
-TEXMFCNF=$srcdir/../kpathsea \
-  ./pdvitype -show-opcodes $srcdir/tests/story >tests/xstory.dvityp || exit 1
+if tfmpath=`$KPSEWHICH cmbx10.tfm`; then
+
+  TEXMFCNF=$srcdir/../kpathsea \
+    TFMFONTS=`dirname $tfmpath` \
+    ./pdvitype -show-opcodes $srcdir/tests/story >tests/xstory.dvityp || exit 1
+
+fi
 
 TEXMFCNF=$srcdir/../kpathsea \
+  TFMFONTS=$srcdir/tests \
   ./pdvitype --p=\*.\*.2 $srcdir/tests/pagenum.dvi >tests/xpagenum.typ || exit 1
 
diff --git a/Build/source/texk/web2c/ptexdir/sample.test b/Build/source/texk/web2c/ptexdir/sample.test
new file mode 100755
index 00000000000..7c91290461f
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/sample.test
@@ -0,0 +1,16 @@
+#! /bin/sh
+
+# Copyright (C) 2010 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+test -d tests || mkdir -p tests
+
+tfmpath=`$KPSEWHICH cmbx10.tfm` || exit 77
+
+# Test inputs
+testdir=$srcdir/ptexdir/tests
+
+TEXMFCNF=$srcdir/../kpathsea \
+  TFMFONTS=$testdir:$(dirname $(dirname $(dirname $tfmpath)))// \
+  ./pdvitype -show-opcodes $testdir/sample >tests/xsample.typ || exit 1
+
diff --git a/Build/source/texk/web2c/ptexdir/tests/goth10.tfm b/Build/source/texk/web2c/ptexdir/tests/goth10.tfm
new file mode 100644
index 00000000000..92b72a3fa22
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/tests/goth10.tfm
diff --git a/Build/source/texk/web2c/ptexdir/tests/min10.pl b/Build/source/texk/web2c/ptexdir/tests/min10.pl
new file mode 100644
index 00000000000..f7f27440d30
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/tests/min10.pl
@@ -0,0 +1,388 @@
+(COMMENT THIS IS A KANJI FORMAT FILE)
+(COMMENT INSERT DUMMY DATA IN CHATSINTYPE 3, JIS 2577)
+(FAMILY MINCHO)
+(FACE O 0)
+(CODINGSCHEME TEX KANJI TEXT)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 35147750366)
+(FONTDIMEN
+   (SLANT R 0.0)
+   (SPACE R 0.0)
+   (STRETCH R 0.091641)
+   (SHRINK R 0.0)
+   (XHEIGHT R 0.916443)
+   (QUAD R 0.962216)
+   (EXTRASPACE R 0.229101)
+   (PARAMETER D 8 R 0.183283)
+   (PARAMETER D 9 R 0.114551)
+   )
+(GLUEKERN
+   (LABEL O 0)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (STOP)
+   (LABEL O 7)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (KRN O 10 R -0.048114)
+   (KRN O 11 R -0.048114)
+   (STOP)
+   (LABEL O 12)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (KRN O 10 R -0.096228)
+   (KRN O 11 R -0.096228)
+   (STOP)
+   (LABEL O 13)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (KRN O 10 R -0.144327)
+   (KRN O 11 R -0.144327)
+   (STOP)
+   (LABEL O 14)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (KRN O 10 R -0.192441)
+   (KRN O 11 R -0.192441)
+   (STOP)
+   (LABEL O 2)
+   (LABEL O 10)
+   (GLUE O 0 R 0.608551 R 0.0 R 0.229101)
+   (GLUE O 7 R 0.608551 R 0.0 R 0.229101)
+   (GLUE O 12 R 0.608551 R 0.0 R 0.229101)
+   (GLUE O 13 R 0.608551 R 0.0 R 0.229101)
+   (GLUE O 14 R 0.608551 R 0.0 R 0.229101)
+   (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 4 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 5 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+   (STOP)
+   (LABEL O 4)
+   (GLUE O 0 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 7 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 12 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 13 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 14 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 4 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 5 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 3 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+   (GLUE O 11 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 1 R 0.3042755 R 0.0 R 0.3042755)
+   (STOP)
+   (LABEL O 5)
+   (GLUE O 0 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 7 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 12 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 13 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 14 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 4 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 5 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 3 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+   (GLUE O 11 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 1 R 0.229101 R 0.0 R 0.229101)
+   (STOP)
+   (LABEL O 3)
+   (GLUE O 0 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 7 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 12 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 13 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 14 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 11 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 1 R 0.107391 R 0.0 R 0.107391)
+   (STOP)
+   (LABEL O 6)
+   (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+   (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+   (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+   (GLUE O 6 R 0.0 R 0.458203 R 0.0)
+   (STOP)
+   (LABEL O 1)
+   (LABEL O 11)
+   (GLUE O 0 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 7 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 12 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 13 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 14 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 10 R 0.229101 R 0.229101 R 0.229101)
+   (GLUE O 2 R 0.229101 R 0.229101 R 0.229101)
+   (GLUE O 4 R 0.229101 R 0.229101 R 0.229101)
+   (GLUE O 5 R 0.229101 R 0.229101 R 0.229101)
+   (GLUE O 3 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+   (GLUE O 11 R 0.0 R 0.458203 R 0.0)
+   (GLUE O 1 R 0.0 R 0.458203 R 0.0)
+   (STOP)
+   )
+(CHARSINTYPE O 1
+   $B!K(B $B!M(B $B!O(B $B!Q(B $B!S(B $B!U(B $B!W(B $B!Y(B $B![(B 
+   )
+(CHARSINTYPE O 2
+   $B!+(B $B!,(B 
+   )
+(CHARSINTYPE O 3
+   $B!6(B $B!7(B $B!9(B $B!h(B $B!i(B $B!j(B $B!p(B $B!q(B $B!r(B $B$!(B $B$#(B $B$%(B $B$'(B 
+   $B$)(B $B$C(B $B$c(B $B$e(B $B$g(B $B$n(B $B%!(B $B%#(B $B%%(B $B%'(B $B%)(B $B%C(B $B%c(B $B%e(B 
+   $B%g(B $B%n(B $B%u(B $B%v(B 
+   )
+(CHARSINTYPE O 4
+   $B!&(B $B!'(B $B!((B $B!*(B $B!-(B $B!.(B $B!>(B $B!B(B $B!C(B $B!F(B $B!G(B 
+   )
+(CHARSINTYPE O 5
+   $B!)(B $B!/(B $B!0(B $B!3(B $B!5(B $B!H(B $B!I(B $B!k(B $B!l(B $B!m(B $B!x(B 
+   )
+(CHARSINTYPE O 6
+   $B!J(B $B!L(B $B!N(B $B!P(B $B!R(B $B!T(B $B!V(B $B!X(B $B!Z(B 
+   )
+(CHARSINTYPE O 7
+   $B$&(B $B$/(B $B$0(B $B$1(B $B$2(B $B$9(B $B$:(B $B$j(B $B%F(B $B%G(B $B%d(B 
+   )
+(CHARSINTYPE O 10
+   $B!$(B $B!%(B 
+   )
+(CHARSINTYPE O 11
+   $B!"(B $B!#(B 
+   )
+(CHARSINTYPE O 12
+   $B%"(B $B%$(B $B%&(B $B%*(B $B%1(B $B%2(B $B%5(B $B%6(B $B%=(B $B%>(B $B%A(B $B%B(B $B%D(B 
+   $B%E(B $B%H(B $B%I(B $B%J(B $B%U(B $B%V(B $B%W(B $B%_(B $B%a(B $B%i(B $B%j(B $B%o(B $B%r(B 
+   )
+(CHARSINTYPE O 13
+   $B%/(B $B%0(B $B%?(B $B%@(B 
+   )
+(CHARSINTYPE O 14
+   $B%N(B 
+   )
+(TYPE O 0
+   (CHARWD R 0.962216)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      )
+   )
+(TYPE O 1
+   (CHARWD R 0.504013)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 7 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 12 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 13 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 14 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 10 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 2 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 4 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 5 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 3 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 11 R 0.0 R 0.458203 R 0.0)
+      (GLUE O 1 R 0.0 R 0.458203 R 0.0)
+      )
+   )
+(TYPE O 2
+   (CHARWD R 0.353665)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 7 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 12 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 13 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 14 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 4 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 5 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+      )
+   )
+(TYPE O 3
+   (CHARWD R 0.747434)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 7 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 12 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 13 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 14 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 11 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 1 R 0.107391 R 0.0 R 0.107391)
+      )
+   )
+(TYPE O 4
+   (CHARWD R 0.353665)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 7 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 12 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 13 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 14 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 4 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 5 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 3 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 11 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 1 R 0.3042755 R 0.0 R 0.3042755)
+      )
+   )
+(TYPE O 5
+   (CHARWD R 0.504013)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 7 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 12 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 13 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 14 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 4 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 5 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 3 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 11 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 1 R 0.229101 R 0.0 R 0.229101)
+      )
+   )
+(TYPE O 6
+   (CHARWD R 0.504013)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 6 R 0.0 R 0.458203 R 0.0)
+      )
+   )
+(TYPE O 7
+   (CHARWD R 0.962216)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (KRN O 10 R -0.048114)
+      (KRN O 11 R -0.048114)
+      )
+   )
+(TYPE O 10
+   (CHARWD R 0.353665)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 7 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 12 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 13 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 14 R 0.608551 R 0.0 R 0.229101)
+      (GLUE O 10 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 2 R 0.0 R 0.3042755 R 0.0)
+      (GLUE O 4 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 5 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 6 R 0.229101 R 0.229101 R 0.229101)
+      )
+   )
+(TYPE O 11
+   (CHARWD R 0.504013)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 0 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 7 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 12 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 13 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 14 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 10 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 2 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 4 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 5 R 0.229101 R 0.229101 R 0.229101)
+      (GLUE O 3 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (GLUE O 11 R 0.0 R 0.458203 R 0.0)
+      (GLUE O 1 R 0.0 R 0.458203 R 0.0)
+      )
+   )
+(TYPE O 12
+   (CHARWD R 0.962216)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (KRN O 10 R -0.096228)
+      (KRN O 11 R -0.096228)
+      )
+   )
+(TYPE O 13
+   (CHARWD R 0.962216)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (KRN O 10 R -0.144327)
+      (KRN O 11 R -0.144327)
+      )
+   )
+(TYPE O 14
+   (CHARWD R 0.962216)
+   (CHARHT R 0.777588)
+   (CHARDP R 0.138855)
+   (COMMENT
+      (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755)
+      (GLUE O 5 R 0.229101 R 0.0 R 0.229101)
+      (GLUE O 3 R 0.107391 R 0.0 R 0.107391)
+      (GLUE O 6 R 0.458203 R 0.0 R 0.229101)
+      (KRN O 10 R -0.192441)
+      (KRN O 11 R -0.192441)
+      )
+   )
diff --git a/Build/source/texk/web2c/ptexdir/tests/min10.tfm b/Build/source/texk/web2c/ptexdir/tests/min10.tfm
new file mode 100644
index 00000000000..1bf04b7ac32
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/tests/min10.tfm
diff --git a/Build/source/texk/web2c/ptexdir/tests/sample.dvi b/Build/source/texk/web2c/ptexdir/tests/sample.dvi
new file mode 100644
index 00000000000..a69226cdc12
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/tests/sample.dvi
diff --git a/Build/source/texk/web2c/ptexdir/tests/tmin10.pl b/Build/source/texk/web2c/ptexdir/tests/tmin10.pl
new file mode 100644
index 00000000000..1230acef26a
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/tests/tmin10.pl
@@ -0,0 +1,332 @@
+(COMMENT
+ tmin10 Propaty List File (Tate kumi)
+               by Hisato Hamano at ascii Co.
+)
+(COMMENT THIS IS A KANJI FORMAT FILE)
+(DIRECTION TATE)
+(FAMILY MINCHO)
+(FACE F MRR)
+(CODINGSCHEME JIS X0208)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 35147750366)
+(SEVENBITSAFEFLAG TRUE)
+(FONTDIMEN
+   (SLANT R 0.0)
+   (SPACE R 0.0)
+   (STRETCH R 0.091641)
+   (SHRINK R 0.0)
+   (XHEIGHT R 0.916443)
+   (QUAD R 0.962216)
+   (EXTRASPACE R 0.229101)
+   (EXTRASTRETCH R 0.183283)
+   (EXTRASHRINK R 0.114551)
+   )
+(GLUEKERN
+   (LABEL D 0)
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.107391 R 0.0      R 0.107391)
+   (GLUE D 5 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 1)
+   (GLUE D 0 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 4 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 5 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 7 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 2)
+   (GLUE D 0 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 4 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 5 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 7 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 3)
+   (GLUE D 0 R 0.107391 R 0.0      R 0.107391)
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.107391 R 0.0      R 0.107391)
+   (GLUE D 5 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 4)
+   (GLUE D 0 R 0.962216 R 0.0      R 0.481108)
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.962216 R 0.0      R 0.481108)
+   (GLUE D 5 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 6 R 0.962216 R 0.0      R 0.481108)
+   (GLUE D 7 R 0.962216 R 0.0      R 0.481108)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 5)
+   (GLUE D 0 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 4 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 5 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 6 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 6)
+   (GLUE D 0 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 4 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 5 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 6 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 7 R 0.240554 R 0.0      R 0.240554)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   (LABEL D 7)
+   (GLUE D 0 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 1 R 0.240554 R 0.0      R 0.240554)
+   (GLUE D 2 R 0.240554 R 0.0      R 0.240554)
+   (GLUE D 3 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 4 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 5 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 6 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 7 R 0.0      R 0.183283 R 0.0     )
+   (GLUE D 8 R 0.240554 R 0.0      R 0.240554)
+   (STOP)
+   (LABEL D 8)
+   (GLUE D 0 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 1 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 2 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 3 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 4 R 0.0      R 0.0      R 0.0     )
+   (GLUE D 5 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)
+   (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)
+   (GLUE D 8 R 0.0      R 0.0      R 0.0     )
+   (STOP)
+   )
+(CHARSINTYPE D 1
+   $B!$(B $B!%(B 
+   )
+(CHARSINTYPE D 2
+   $B!"(B $B!#(B 
+   )
+(CHARSINTYPE D 3
+   $B!3(B $B!4(B $B!5(B $B!6(B $B!7(B $B!9(B
+   $B$!(B $B$#(B $B$%(B $B$'(B $B$)(B $B$C(B $B$c(B $B$e(B $B$g(B $B$n(B
+   $B%!(B $B%#(B $B%%(B $B%'(B $B%)(B $B%C(B $B%c(B $B%e(B $B%g(B $B%n(B $B%u(B $B%v(B 
+   )
+(CHARSINTYPE D 4
+   $B!)(B $B!*(B 
+   )
+(CHARSINTYPE D 5
+   $B!=(B $B!D(B $B!E(B 
+   )
+(CHARSINTYPE D 6
+   $B!F(B $B!H(B $B!J(B $B!L(B $B!N(B $B!P(B $B!R(B $B!T(B $B!V(B $B!X(B $B!Z(B 
+   )
+(CHARSINTYPE D 7
+   $B!&(B $B!>(B $B!B(B $B!C(B 
+   )
+(CHARSINTYPE D 8
+   $B!G(B $B!I(B $B!K(B $B!M(B $B!O(B $B!Q(B $B!S(B $B!U(B $B!W(B $B!Y(B $B![(B 
+   )
+(TYPE D 0
+   (COMMENT						$BIaDL$N4A;z(B
+      )
+   (CHARWD R 0.962216)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.107391 R 0.0      R 0.107391)	$B>.$+$J(B
+      (GLUE D 5 R 0.0      R 0.0      R 0.0     )	$BA43QLsJ*(B
+      (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 1
+   (COMMENT					$B!$!%(B
+      (CHARSINTYPE D 1
+         $B!$(B $B!%(B 
+         )
+      )
+   (CHARWD R 0.481108)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.481108 R 0.183283 R 0.481108)	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.481108 R 0.183283 R 0.481108)	$B>.%+%J(B
+      (GLUE D 4 R 0.0      R 0.0      R 0.0     )	$B!)!*(B
+      (GLUE D 5 R 0.481108 R 0.183283 R 0.481108)	$BA43QLsJ*(B
+      (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.481108 R 0.183283 R 0.481108)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 2
+   (COMMENT					$B!"!#(B
+      (CHARSINTYPE D 2
+         $B!"(B $B!#(B 
+         )
+      )
+   (CHARWD R 0.481108)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.481108 R 0.183283 R 0.481108)	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.481108 R 0.183283 R 0.481108)	$B>.%+%J(B
+      (GLUE D 4 R 0.0      R 0.0      R 0.0     )	$B!)!*(B
+      (GLUE D 5 R 0.481108 R 0.183283 R 0.481108)	$BA43QLsJ*(B
+      (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.481108 R 0.183283 R 0.481108)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 3
+   (COMMENT						$B>.$+$J(B
+      (CHARSINTYPE D 3
+         $B!3(B $B!4(B $B!5(B $B!6(B $B!7(B $B!9(B
+         $B$!(B $B$#(B $B$%(B $B$'(B $B$)(B $B$C(B $B$c(B $B$e(B $B$g(B $B$n(B
+         $B%!(B $B%#(B $B%%(B $B%'(B $B%)(B $B%C(B $B%c(B $B%e(B $B%g(B $B%n(B $B%u(B $B%v(B 
+         )
+      )
+   (CHARWD R 0.747434)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.107391 R 0.0      R 0.107391)	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.107391 R 0.0      R 0.107391)	$B>.$+$J(B
+      (GLUE D 5 R 0.0      R 0.0      R 0.0     )	$BA43QLsJ*(B
+      (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 4
+   (COMMENT						$B!*!)(B
+      (CHARSINTYPE D 4
+         $B!)(B $B!*(B 
+         )
+      )
+   (CHARWD R 0.962216)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.962216 R 0.0      R 0.481108)	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.962216 R 0.0      R 0.481108)	$B>.$+$J(B
+      (GLUE D 5 R 0.0      R 0.0      R 0.0     )	$BA43QLsJ*(B
+      (GLUE D 6 R 0.962216 R 0.0      R 0.481108)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.962216 R 0.0      R 0.481108)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 5
+   (COMMENT						$BA43QLsJ*(B
+      (CHARSINTYPE D 5
+         $B!=(B $B!D(B $B!E(B 
+         )
+      )
+   (CHARWD R 0.962216)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.0      R 0.0      R 0.0     )	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.0      R 0.0      R 0.0     )	$B>.$+$J(B
+      (GLUE D 4 R 0.0      R 0.0      R 0.0     )	$B!*!)(B
+      (GLUE D 5 R 0.0      R 0.0      R 0.0     )	$BA43QLsJ*(B
+      (GLUE D 6 R 0.240554 R 0.183283 R 0.240554)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 6
+   (COMMENT					$B%+%C%33+$-(B
+      (CHARSINTYPE D 6
+         $B!F(B $B!H(B $B!J(B $B!L(B $B!N(B $B!P(B $B!R(B $B!T(B $B!V(B $B!X(B $B!Z(B 
+         )
+      )
+   (CHARWD R 0.481108)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.0      R 0.0      R 0.0     )	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.0      R 0.0      R 0.0     )	$B>.$+$J(B
+      (GLUE D 4 R 0.0      R 0.0      R 0.0     )	$B!*!)(B
+      (GLUE D 5 R 0.0      R 0.0      R 0.0     )	$BA43QLsJ*(B
+      (GLUE D 6 R 0.0      R 0.0      R 0.0     )	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.240554 R 0.0      R 0.240554)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 7
+   (COMMENT					$BCf%D%-LsJ*(B
+      (CHARSINTYPE D 7
+         $B!&(B $B!>(B $B!B(B $B!C(B 
+         )
+      )
+   (CHARWD R 0.481108)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.240554 R 0.183283 R 0.240554)	$B4A;z(B
+      (GLUE D 1 R 0.240554 R 0.0      R 0.240554)	$B!$!%(B
+      (GLUE D 2 R 0.240554 R 0.0      R 0.240554)	$B!"!#(B
+      (GLUE D 3 R 0.240554 R 0.183283 R 0.240554)	$B>.%+%J(B
+      (GLUE D 4 R 0.240554 R 0.183283 R 0.240554)	$B!)!*(B
+      (GLUE D 5 R 0.240554 R 0.183283 R 0.240554)	$BA43QLsJ*(B
+      (GLUE D 6 R 0.240554 R 0.183283 R 0.240554)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.0      R 0.183283 R 0.0     )	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.240554 R 0.0      R 0.240554)	$B%+%C%3JD$8(B
+      )
+   )
+(TYPE D 8
+   (COMMENT					$B%+%C%3JD$8(B
+      (CHARSINTYPE D 8
+         $B!G(B $B!I(B $B!K(B $B!M(B $B!O(B $B!Q(B $B!S(B $B!U(B $B!W(B $B!Y(B $B![(B 
+         )
+      )
+   (CHARWD R 0.481108)
+   (CHARHT R 0.458221)
+   (CHARDP R 0.458221)
+   (COMMENT
+      (GLUE D 0 R 0.481108 R 0.183283 R 0.481108)	$B4A;z(B
+      (GLUE D 1 R 0.0      R 0.0      R 0.0     )	$B!$!%(B
+      (GLUE D 2 R 0.0      R 0.0      R 0.0     )	$B!"!#(B
+      (GLUE D 3 R 0.481108 R 0.183283 R 0.481108)	$B>.%+%J(B
+      (GLUE D 4 R 0.0      R 0.0      R 0.0     )	$B!)!*(B
+      (GLUE D 5 R 0.240554 R 0.183283 R 0.240554)	$BA43QLsJ*(B
+      (GLUE D 6 R 0.481108 R 0.183283 R 0.481108)	$B%+%C%33+$-(B
+      (GLUE D 7 R 0.240554 R 0.183283 R 0.240554)	$BCf%D%-LsJ*(B
+      (GLUE D 8 R 0.0      R 0.0      R 0.0     )	$B%+%C%3JD$8(B
+      )
+   )
diff --git a/Build/source/texk/web2c/ptexdir/tests/tmin10.tfm b/Build/source/texk/web2c/ptexdir/tests/tmin10.tfm
new file mode 100644
index 00000000000..a54690f5656
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/tests/tmin10.tfm
diff --git a/Build/source/texk/web2c/ptexdir/yokotate.test b/Build/source/texk/web2c/ptexdir/yokotate.test
new file mode 100755
index 00000000000..5c85fb1c683
--- /dev/null
+++ b/Build/source/texk/web2c/ptexdir/yokotate.test
@@ -0,0 +1,28 @@
+#! /bin/sh
+
+# Copyright (C) 2010 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+test -d tests || mkdir -p tests
+
+# Test inputs
+testdir=$srcdir/ptexdir/tests
+
+# Testing pPLtoTF/pTFtoPL for min10 (yoko=horiz) and tmin10 (tate=vert).
+for font in min10 tmin10; do
+
+  ./ppltotf -verbose $testdir/$font.pl tests/x$font.tfm && \
+    cmp $testdir/$font.tfm tests/x$font.tfm || exit 1
+
+  TEXMFCNF=$srcdir/../kpathsea \
+    ./ptftopl -verbose $testdir/$font.tfm tests/x$font.pl || exit 1
+
+  ./ppltotf tests/x$font tests/xx$font && \
+    cmp $testdir/$font.tfm tests/xx$font.tfm || exit 1
+
+  TEXMFCNF=$srcdir/../kpathsea TFMFONTS=tests \
+    ./ptftopl xx$font tests/xx$font && \
+    diff tests/x$font.pl tests/xx$font.pl || exit 1
+
+done
+