TeX: Stricter checking in triptest

git-svn-id: svn://tug.org/texlive/trunk@32711 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 38 insertions, 2 deletions

diff --git a/Build/source/texk/web2c/triptest b/Build/source/texk/web2c/triptest
index 23c37904f39..bbb8b777085 100755
--- a/Build/source/texk/web2c/triptest
+++ b/Build/source/texk/web2c/triptest
@@ -1,6 +1,6 @@
 #! /bin/sh
 
-# Copyright (C) 2009-2013 Peter Breitenlohner <tex-live@tug.org>
+# Copyright (C) 2009-2014 Peter Breitenlohner <tex-live@tug.org>
 # You may freely use, modify and/or distribute this file.
 
 testdir=$abs_srcdir/triptrap
@@ -10,6 +10,34 @@ TEXMFCNF=$testdir; export TEXMFCNF
 rm -rf tripdir
 mkdir tripdir
 cd tripdir
+mkdir a b
+cat >filter <<-\_EOF
+	s,^\*\*(\./trip\.tex ##,** \&trip  trip \
+	(trip.tex ##,
+	/^\\openout.*/,/^$/d
+	s/ (TeX Live 20[^)]*)//
+	s/(preloaded format=tex)/(INITEX)/
+	s/format=trip [^)][^)]*)/format=trip)/
+	s/)  [0-9A-Z: ]*$/)/
+	s,^(\./,(,
+	s/[1-9][0-9]* strings out of [1-9].*/XX strings out of YYY/
+	s/[1-9][0-9]* string characters out of [1-9].*/XXX string characters out of XYYY/
+	s/sequences out of [1-9].*/sequences out of XYYY/
+	s/[1-9] hyphenation exceptions* out of [1-9].*/X hyphenation exceptions out of XYY/
+	s/[1-9][0-9]* strings of total length [1-9].*/XXXX strings of total length YYYYY/
+	s/9 ops out of [1-9][0-9]*/9 ops out of YYY/
+	s/ 16341\.999.*fil/ 16342.0fil/
+	s/ 16238\.999.*fil/ 16239.0fil/
+	s/ 16317\.999.*fil/ 16318.0fil/
+	s/ 16330\.999.*fil/ 16331.0fil/
+	s/ 16331\.999.*fil/ 16332.0fil/
+	s/ 16343\.999.*fil/ 16344.0fil/
+	s/ 9737\.587..fil/ 9737.58789fil/
+	s/TeX output 20..\...\...:..../TeX output 20YY.MM.DD:hhmm/
+	s/down4 639342.../down4 639342208/
+	s/y4 2039217../y4 203921760/
+	s/y0 2039217../y0 203921760/
+	_EOF
 
 dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'"
 
@@ -44,7 +72,15 @@ $DIFF $DIFFFLAGS $testdir/trip.log trip.log
 eval ../dvitype $dvitype_args trip.dvi >trip.typ || exit 1
 $DIFF $DIFFFLAGS $testdir/trip.typ trip.typ
 
-$is_OK || {
+for f in tripin.log trip.fot trip.log trip.typ; do
+  sed $testdir/$f -f filter >a/$f
+  sed $f -f filter >b/$f
+  diff a/$f b/$f || is_OK=false
+done
+
+$is_OK && {
+  echo ">>> All differences are acceptable." >&2
+} || {
   echo ">>> There were some errors." >&2
   exit 1
 }