diff options
author | Karl Berry <karl@freefriends.org> | 2010-03-08 18:49:47 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-03-08 18:49:47 +0000 |
commit | 39314b5c03d8cbc0fd25b4cc665df2090d75defe (patch) | |
tree | 9ea4ea2c6ef3a8376fcc52947b0fb0db2dedd970 /Build/source/texk/web2c/tests/bibtex-openout-test.pl | |
parent | 933606e1f19552101ffc0e2ddb0126253601efee (diff) |
add longline test for bibtex 0.99d
git-svn-id: svn://tug.org/texlive/trunk@17384 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tests/bibtex-openout-test.pl')
-rwxr-xr-x | Build/source/texk/web2c/tests/bibtex-openout-test.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/tests/bibtex-openout-test.pl b/Build/source/texk/web2c/tests/bibtex-openout-test.pl index 45fd92d1b6f..cc00564e5d3 100755 --- a/Build/source/texk/web2c/tests/bibtex-openout-test.pl +++ b/Build/source/texk/web2c/tests/bibtex-openout-test.pl @@ -3,7 +3,8 @@ # Public domain. Originally written 2010, Karl Berry. # Check that bibtex respects openout_any. -BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `dirname $0`); } +# srcdir = web2c (in the source tree) +BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `cd \`dirname $0\`/.. && pwd`); } require "$srcdir/../tests/common-test.pl"; exit (&main ()); @@ -12,10 +13,10 @@ sub main { $ENV{"openout_any"} = "p"; # should already be in texmf.cnf, but ... - # .blg open of abs path should fail + # .blg open of abs path should fail: my $ret = &test_run ("./bibtex", "$srcdir/exampl.aux"); - # The test fails if the program succeeded. Ideally we'd grep the output. + # The test fails if the program succeeded. Could also check the output. my $bad = ($ret == 0); return $bad; } |