1 files changed, 115 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/euptexdir/euptriptest b/Build/source/texk/web2c/euptexdir/euptriptest
new file mode 100755
index 00000000000..b755443084b
--- /dev/null
+++ b/Build/source/texk/web2c/euptexdir/euptriptest
@@ -0,0 +1,115 @@
+#! /bin/sh
+
+# Copyright (C) 2010 Hironori Kitagawa <tex-live@tug.org>
+# Copyright (C) 2011-2013 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+testdir=$abs_srcdir/triptrap
+etestdir=$abs_srcdir/etexdir/etrip
+eptestdir=$abs_srcdir/eptexdir/eptrip
+euptestdir=$abs_srcdir/euptexdir/euptrip
+
+TEXMFCNF=$euptestdir; export TEXMFCNF
+
+rm -rf euptripdir
+mkdir euptripdir
+cd euptripdir
+
+dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'"
+
+echo ">>> Running e-TRIP test for e-upTeX." >&2
+echo ">>> See $euptestdir/euptrip.diffs for example of acceptable diffs." >&2
+
+# upTeX outputs direction of boxes.
+P_SED1='s/, yoko direction//;s/yoko direction, //'
+P_SED2='s/yoko(math) direction, //'
+
+is_OK=:
+
+set -x
+
+echo "*** TRIP test for e-upTeX in compatibility mode ***."
+
+../pltotf $testdir/trip.pl trip.tfm || exit 1
+
+../tftopl ./trip.tfm trip.pl || exit 1
+
+diff $testdir/trip.pl trip.pl || is_OK=false
+
+# get same filename in log
+$LN_S $testdir/trip.tex .
+
+rm -f trip.log
+../euptex --progname=eupinitex --ini <$testdir/trip1.in >cuptripin.fot
+sed "$P_SED1" trip.log >  cuptripin.log || exit 1
+diff $testdir/tripin.log cuptripin.log
+
+# May as well test non-ini second time through.
+rm -f trip.log
+../euptex --progname=euptex <$testdir/trip2.in >cuptrip.fot
+sed "$P_SED1;$P_SED2" trip.log > cuptrip.log
+diff $testdir/trip.fot cuptrip.fot
+
+# We use $DIFF instead of `diff' only for those files where there
+# might actually be legitimate numerical differences.
+$DIFF $DIFFFLAGS $testdir/trip.log cuptrip.log 
+
+eval ../dvitype $dvitype_args trip.dvi >cuptrip.typ || exit 1
+$DIFF $DIFFFLAGS $testdir/trip.typ cuptrip.typ
+
+# =================================
+
+echo "*** TRIP test for e-upTeX in extended mode ***."
+
+rm -f trip.log
+../euptex --progname=eupinitex --ini <$etestdir/etrip1.in >xuptripin.fot
+sed "$P_SED1" trip.log >  xuptripin.log || exit 1
+diff $testdir/tripin.log xuptripin.log
+
+# May as well test non-ini second time through.
+rm -f trip.log
+../euptex --progname=euptex <$etestdir/trip2.in >xuptrip.fot
+sed "$P_SED1;$P_SED2" trip.log > xuptrip.log
+diff $testdir/trip.fot xuptrip.fot
+
+# We use $DIFF instead of `diff' only for those files where there
+# might actually be legitimate numerical differences.
+$DIFF $DIFFFLAGS $testdir/trip.log xuptrip.log 
+
+eval ../dvitype $dvitype_args trip.dvi >xuptrip.typ || exit 1
+$DIFF $DIFFFLAGS $testdir/trip.typ xuptrip.typ
+
+# =================================
+
+echo "*** e-TeX specific part of e-TRIP test for e-upTeX ***."
+
+../pltotf $etestdir/etrip.pl etrip.tfm || exit 1
+
+../tftopl ./etrip.tfm etrip.pl || exit 1
+
+diff $etestdir/etrip.pl etrip.pl || is_OK=false
+
+# get same filename in log
+$LN_S $eptestdir/etrip.tex .
+
+../euptex --progname=eupinitex --ini <$etestdir/etrip2.in >euptripin.fot
+sed "$P_SED1" etrip.log > euptripin.log || exit 1
+diff $etestdir/etripin.log euptripin.log
+
+# May as well test non-ini second time through.
+../euptex --progname=euptex <$etestdir/etrip3.in >euptrip.fot
+sed "$P_SED1;$P_SED2" etrip.log > euptrip.log
+diff $etestdir/etrip.fot euptrip.fot
+
+# We use $DIFF instead of `diff' only for those files where there
+# might actually be legitimate numerical differences.
+$DIFF $DIFFFLAGS $eptestdir/etrip.log euptrip.log
+
+eval ../dvitype $dvitype_args etrip.dvi >euptrip.typ || exit 1
+$DIFF $DIFFFLAGS $etestdir/etrip.typ euptrip.typ
+
+$is_OK || {
+  echo ">>> There were some errors." >&2
+  exit 1
+}
+