summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/hitexdir/tests
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/hitexdir/tests')
-rw-r--r--Build/source/texk/web2c/hitexdir/tests/rule.test33
-rw-r--r--Build/source/texk/web2c/hitexdir/tests/rule.tex11
2 files changed, 44 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/hitexdir/tests/rule.test b/Build/source/texk/web2c/hitexdir/tests/rule.test
new file mode 100644
index 00000000000..24d55f53469
--- /dev/null
+++ b/Build/source/texk/web2c/hitexdir/tests/rule.test
@@ -0,0 +1,33 @@
+#! /bin/sh -vx
+# $Id: rule.test $
+# Public domain. Originally written by Martin Ruckert
+# Basic check that rule.tex can be hitexed stretched and shrinked.
+
+LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
+
+TEXMFCNF=$srcdir/../kpathsea; export TEXMFCNF
+TEXINPUTS=$srcdir/hitexdir/tests; export TEXINPUTS
+
+./hitex -ini --interaction=nonstopmode rule.tex || exit $?
+./histretch rule.hnt || exit $?
+./hishrink -o rule.out.hnt rule.HINT || exit $?
+./histretch rule.out.hnt || exit $?
+
+if grep -q "<rule 0x48.451Ept 1pt 0x1C.73E7pt>" rule.HINT
+then
+ : # OK
+else
+ echo "rule.HINT does not contain the propper rule"
+ exit 1
+fi
+
+if diff -q -w rule.out.HINT rule.HINT
+then
+ : #OK
+else
+ echo "rule.out.HINT and rule.HINT differ"
+ exit 1
+fi
+
+exit 0
+
diff --git a/Build/source/texk/web2c/hitexdir/tests/rule.tex b/Build/source/texk/web2c/hitexdir/tests/rule.tex
new file mode 100644
index 00000000000..b35b0a9abca
--- /dev/null
+++ b/Build/source/texk/web2c/hitexdir/tests/rule.tex
@@ -0,0 +1,11 @@
+% $Id: rule.tex $
+% Public domain. Test file for generating a single rule
+% Originally written 2021 Martin Ruckert
+
+\catcode`\{=1 \catcode`\}=2 % can run under -ini
+
+\hrule height 1in width 1cm depth 1pt
+\vfill
+
+\end
+