diff options
author | Karl Berry <karl@freefriends.org> | 2011-09-09 01:54:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-09-09 01:54:35 +0000 |
commit | 77df47391389b30f27b92ed13e805ac2cb588903 (patch) | |
tree | 56d876d3e16a9500528053affc8c3c3c7590fbc0 /Build/source/texk/tests | |
parent | b0d615a39fa08cf53df7081d22c15d93a6305b7b (diff) |
beginning of updmap tests, option handling update
git-svn-id: svn://tug.org/texlive/trunk@23879 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/tests')
-rw-r--r-- | Build/source/texk/tests/common-test.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Build/source/texk/tests/common-test.pl b/Build/source/texk/tests/common-test.pl index e12b6f46be8..c2ab99c78a2 100644 --- a/Build/source/texk/tests/common-test.pl +++ b/Build/source/texk/tests/common-test.pl @@ -15,20 +15,22 @@ $ENV{"AFMFONTS"} # Run PROG with ARGS. Return the exit status. # Die if PROG is not executable. # -sub test_run -{ +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; + # Won't be copyable with weird names, but should get the info across. + print "$0: running ", $prog, join (" ", @args), "\n"; + + # Run it. my $ret = system ($prog, @args); return $ret; } -sub test_file_copy -{ +sub test_file_copy { my ($srcfile,$dstfile) = @_; # don't copy onto itself. |