summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir/euptriptest
blob: 726cdd41731867f2567623a72a48f793868260ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
#! /bin/sh

# Copyright (C) 2010 Hironori Kitagawa <tex-live@tug.org>
# Copyright (C) 2011-2014 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
if test ! -s trip.fmt; then
  echo "*** trip.fmt not created by trip1.in, investigate!" >&2
  exit 1
fi
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

mv trip.fmt ctrip.fmt

# =================================

echo "*** TRIP test for e-upTeX in extended mode ***."

rm -f trip.log
../euptex --progname=eupinitex --ini <$etestdir/etrip1.in >xuptripin.fot
if test ! -s trip.fmt; then
  echo "*** trip.fmt not created by etrip1.in, investigate!" >&2
  exit 1
fi
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

mv trip.fmt xtrip.fmt

# =================================

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/eptrip.tex etrip.tex

../euptex --progname=eupinitex --ini <$etestdir/etrip2.in >euptripin.fot
if test ! -s etrip.fmt; then
  echo "*** etrip.fmt not created by etrip2.in, investigate!" >&2
  exit 1
fi
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/eptrip.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
}