blob: fe9b369257ac4412c847a279e340a920beff1e2e (
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
|
#! /bin/sh -vx
#
# Copyright 2022 Japanese TeX Development Community <issue@texjp.org>
# You may freely use, modify and/or distribute this file.
test -d ptests || mkdir -p ptests
rm -f ptests/fn*.log ptests/fn*.txt ptests/fn*.tex fn*.tex
rc=0
TEXMFCNF=$srcdir/../kpathsea
TEXINPUTS=ptests:.
export TEXMFCNF TEXINPUTS
for loc in C.UTF-8 C.utf8 en_US.UTF-8 en_US.utf8 ja_JP.UTF-8 ja_JP.utf8; do
locale -a | grep $loc
ret=$?
if [ $ret = 0 ]; then
LC_ALL=$loc; LANGUAGE=$loc; export LC_ALL LANGUAGE
break
fi
done
if [ $ret = 1 ]; then
# linux musl fails to run `locale -a` but seems to have C.UTF-8
loc=C.UTF-8
LC_ALL=$loc; LANGUAGE=$loc; export LC_ALL LANGUAGE
fi
perl $srcdir/tests/fn-generate.perl || exit 128
mv fn*.tex ptests/
# pTeX internal encoding
fenc="utf8"
for ienc in euc sjis; do
for doc in fn-$fenc fnさざ波-$fenc; do
echo '>>> Document:'$doc ' File Encoding:'$fenc ' Internal Encoding:'$ienc
./ptex -ini -interaction nonstopmode -jobname=$doc-$ienc -kanji=$fenc --kanji-internal=$ienc --shell-escape $doc.tex >ptests/$doc-$ienc-term.log || rc=1
mv $doc-$ienc.txt $doc-$ienc.log fn*-tmp.tex ptests/
diff ptests/$doc-$ienc.txt $srcdir/tests/fn-$fenc.txt || rc=2
done
done
# pTeX, regacy encoding
for fenc in sjis euc; do
for doc in fnさざ波-$fenc; do
ienc=$fenc
if [ "$COMSPEC" != "" ]; then
echo "*** We guess OS is Windows."
if [ $fenc != euc ]; then ienc="sjis"; fi
else
echo "*** We guess OS is not Windows."
if [ $fenc != sjis ]; then ienc="euc"; fi
fi
echo '>>> Document:'$doc ' File Encoding:'$fenc ' Internal Encoding:'$ienc
./ptex -ini -interaction nonstopmode -jobname=$doc-$ienc -kanji=$fenc --kanji-internal=$ienc --shell-escape $doc.tex >ptests/$doc-$fenc-term.log || rc=3
mv $doc-$ienc.txt $doc-$ienc.log fn*-tmp.tex ptests/
diff ptests/$doc-$ienc.txt $srcdir/tests/fn-$fenc.txt || rc=4
done
done
exit $rc
|
