#! /bin/sh

# Copyright (C) 2010 Peter Breitenlohner <tex-live@tug.org>
# You may freely use, modify and/or distribute this file.

testdir=$srcdir/triptrap

TEXMFCNF=$testdir; export TEXMFCNF

dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'"

echo ">>> Running TRIP test for pTeX." >&2
echo ">>> See $srcdir/ptexdir/ptrip.diffs for example of acceptable diffs." >&2

rm -f trip.tfm trip.pl trip.tex trip.fmt trip.dvi \
  ptripin.fot ptripin.log ptrip.fot ptrip.log ptrip.typ  \
  tripos.tex 8terminal.tex
rm -rf tfm

# pTeX 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 pTeX ***."

./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
./ptex --progname=pinitex --ini <$testdir/trip1.in >ptripin.fot
sed "$P_SED1" trip.log >  ptripin.log || exit 1
diff $testdir/tripin.log ptripin.log

# May as well test non-ini second time through.
rm -f trip.log
./ptex --progname=ptex <$testdir/trip2.in >ptrip.fot
sed "$P_SED1;$P_SED2" trip.log > ptrip.log
diff $testdir/trip.fot ptrip.fot

# We use $DIFF instead of `diff' only for those files where there
# might actually be legitimate numerical differences.
$DIFF $DIFFFLAGS $testdir/trip.log ptrip.log 

eval ./dvitype $dvitype_args trip.dvi >ptrip.typ || exit 1
$DIFF $DIFFFLAGS $testdir/trip.typ ptrip.typ

$is_OK || {
  echo ">>> There were some errors." >&2
  exit 1
}