summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tests
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-02-18 18:03:18 +0000
committerKarl Berry <karl@freefriends.org>2010-02-18 18:03:18 +0000
commite826cf1e931e56a27391f357253038be01f25396 (patch)
tree2f3195394c18fc3fde2b8ef8ef4de296e96d4a08 /Build/source/texk/web2c/tests
parent265ec325225e513352908a8d61e2d0bc06d6ca09 (diff)
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
Diffstat (limited to 'Build/source/texk/web2c/tests')
-rwxr-xr-xBuild/source/texk/web2c/tests/bibtex-openout-test.pl7
-rw-r--r--Build/source/texk/web2c/tests/common-test.pl24
-rwxr-xr-xBuild/source/texk/web2c/tests/write18-quote-test.pl9
-rw-r--r--Build/source/texk/web2c/tests/write18-quote.tex3
4 files changed, 8 insertions, 35 deletions
diff --git a/Build/source/texk/web2c/tests/bibtex-openout-test.pl b/Build/source/texk/web2c/tests/bibtex-openout-test.pl
index fc8dabfc846..45fd92d1b6f 100755
--- a/Build/source/texk/web2c/tests/bibtex-openout-test.pl
+++ b/Build/source/texk/web2c/tests/bibtex-openout-test.pl
@@ -1,11 +1,10 @@
#!/usr/bin/env perl
# $Id$
-# Copyright 2009, 2010 Karl Berry <tex-live@tug.org>.
-# You may freely use, modify and/or distribute this file.
+# Public domain. Originally written 2010, Karl Berry.
# Check that bibtex respects openout_any.
-BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `pwd`); }
-require "$srcdir/tests/common-test.pl";
+BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `dirname $0`); }
+require "$srcdir/../tests/common-test.pl";
exit (&main ());
diff --git a/Build/source/texk/web2c/tests/common-test.pl b/Build/source/texk/web2c/tests/common-test.pl
deleted file mode 100644
index 725ba55b624..00000000000
--- a/Build/source/texk/web2c/tests/common-test.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-# $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;
-}
diff --git a/Build/source/texk/web2c/tests/write18-quote-test.pl b/Build/source/texk/web2c/tests/write18-quote-test.pl
index 74256516b73..d0daabdd054 100755
--- a/Build/source/texk/web2c/tests/write18-quote-test.pl
+++ b/Build/source/texk/web2c/tests/write18-quote-test.pl
@@ -1,11 +1,10 @@
#!/usr/bin/env perl
# $Id$
-# Copyright 2010 Karl Berry <tex-live@tug.org>.
-# You may freely use, modify and/or distribute this file.
+# Public domain. Originally written 2010, Karl Berry.
# Check that restricted shell invocation doesn't misquote.
-BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `pwd`); }
-require "$srcdir/tests/common-test.pl";
+BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `dirname $0`); }
+require "$srcdir/../tests/common-test.pl";
exit (&main ());
@@ -14,7 +13,7 @@ sub main
$badfile = "write18-quote-newfile.tex";
unlink ($badfile); # ensure no leftover from previous test
- my @args = qw(-ini -shell-restricted $srcdir/tests/write18-quote.tex);
+ my @args = (qw(-ini -shell-restricted), "$srcdir/tests/write18-quote.tex");
my $ret = &test_run ("./tex", @args);
my $bad = -f $badfile; # file should not have been created
diff --git a/Build/source/texk/web2c/tests/write18-quote.tex b/Build/source/texk/web2c/tests/write18-quote.tex
index d766ac4f808..dcfe6cb1e92 100644
--- a/Build/source/texk/web2c/tests/write18-quote.tex
+++ b/Build/source/texk/web2c/tests/write18-quote.tex
@@ -1,6 +1,5 @@
% $Id$
-% Copyright 2010 Karl Berry <tex-live@tug.org>.
-% You may freely use, modify and/or distribute this file.
+% Public domain. Originally written 2010, Karl Berry.
\catcode`\{=1 \catcode`\}=2 % allow for running with initex.