blob: 414168a9648f3a61f2711cf886e83641632a76be (
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
|
# $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;
}
|