From e826cf1e931e56a27391f357253038be01f25396 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 18 Feb 2010 18:03:18 +0000 Subject: move common-test.pl to common directory; new popen/gzip test for dvipsk git-svn-id: svn://tug.org/texlive/trunk@17085 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/tests/common-test.pl | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 Build/source/texk/tests/common-test.pl (limited to 'Build/source/texk/tests') diff --git a/Build/source/texk/tests/common-test.pl b/Build/source/texk/tests/common-test.pl new file mode 100644 index 00000000000..414168a9648 --- /dev/null +++ b/Build/source/texk/tests/common-test.pl @@ -0,0 +1,24 @@ +# $Id: common-test.pl 16695 2010-01-13 01:18:02Z karl $ +# Public domain. Originally written 2010, Karl Berry. +# Common definitions for Perl tests in TeX Live. We want to use Perl to +# have a chance of running the tests on Windows. + +$ENV{"TEXMFCNF"} = "$srcdir/../kpathsea"; +$ENV{"BIBINPUTS"} = "$srcdir/tests"; +$ENV{"BSTINPUTS"} = "$srcdir/tests"; +$ENV{"TEXINPUTS"} = "$srcdir/tests"; + +# Run PROG with ARGS. Return the exit status. +# Die if PROG is not executable. +# +sub test_run +{ + my ($prog, @args) = @_; + + # Possibly we should check that $prog starts with ./, since we always + # want to run out of the build dir. I think. + die "$0: no program $prog in " . `pwd` if ! -x $prog; + + my $ret = system ($prog, @args); + return $ret; +} -- cgit v1.2.3