summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir/euptrip.test
blob: 1d4120b518408d7523f15e4da276c4f699b4f39b (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
#! /bin/sh

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

testdir=$srcdir/triptrap
etestdir=$srcdir/etexdir/etrip
eptestdir=$srcdir/eptexdir/eptrip
euptestdir=$srcdir/euptexdir/euptrip

TEXMFCNF=$euptestdir; export TEXMFCNF

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

rm -f trip.tfm trip.pl trip.tex trip.log trip.fmt trip.log trip.dvi \
  cuptripin.fot cuptripin.log cuptrip.fot cuptrip.log cuptrip.typ \
  xuptripin.fot xuptripin.log xuptrip.fot xuptrip.log xuptrip.typ \
  euptripin.fot euptripin.log euptrip.fot euptrip.log euptrip.typ \
  etrip.tfm etrip.pl etrip.tex etrip.log etrip.fmt etrip.dvi etrip.out \
  tripos.tex 8terminal.tex
rm -rf tfm

# 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
}