Build/source/texk/web2c/tests/common-test.pl


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$
# Copyright 2010 Karl Berry <tex-live@tug.org>.
# You may freely use, modify and/or distribute this file.
# Common definitions for Perl tests in TeX Live.

$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;
}