diff options
Diffstat (limited to 'Build/source/texk/web2c/mfluajitdir/mfluajittraptest')
-rwxr-xr-x | Build/source/texk/web2c/mfluajitdir/mfluajittraptest | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/mfluajitdir/mfluajittraptest b/Build/source/texk/web2c/mfluajitdir/mfluajittraptest new file mode 100755 index 00000000000..78437cd92a2 --- /dev/null +++ b/Build/source/texk/web2c/mfluajitdir/mfluajittraptest @@ -0,0 +1,52 @@ +#! /bin/sh + +# Copyright (C) 2015 Peter Breitenlohner <tex-live@tug.org> +# You may freely use, modify and/or distribute this file. + +testdir=$abs_srcdir/triptrap +ltestdir=$abs_srcdir/mfluadir/mfluatrap +jtestdir=$abs_srcdir/mfluajitdir/mfluajittrap + +TEXMFCNF=$ltestdir; export TEXMFCNF + +rm -rf mfluajittrapdir +mkdir mfluajittrapdir +cd mfluajittrapdir + +cp $ltestdir/*.lua . + +echo ">>> Running TRAP test for MFLuaJIT." >&2 +echo ">>> See $jtestdir/mfluajittrap.diffs for example of acceptable diffs." >&2 + +is_OK=: + +set -x + +# get same filename in log +$LN_S $testdir/trap.mf . + +../mfluajit --progname=inimfluajit <$testdir/mftrap1.in >mftrapin.fot +if test ! -s trap.base; then + echo "*** trap.base not created by mftrap1.in, investigate!" >&2 + exit 1 +fi +mv trap.log mftrapin.log || exit 1 +diff $testdir/mftrapin.log mftrapin.log + +../mfluajit --progname=inimfluajit <$testdir/mftrap2.in >mftrap.fot +mv trap.log mftrap.log || exit 1 +mv trap.tfm mftrap.tfm || exit 1 +diff $testdir/mftrap.fot mftrap.fot +diff $testdir/mftrap.log mftrap.log + +../tftopl ./mftrap.tfm mftrap.pl || exit 1 +diff $testdir/mftrap.pl mftrap.pl || is_OK=false + +../gftype -m -i ./trap.72270gf >trap.typ || exit 1 +diff $testdir/trap.typ trap.typ + +$is_OK || { + echo ">>> There were some errors." >&2 + exit 1 +} + |