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

1 files changed, 24 insertions, 0 deletions

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