diff options
Diffstat (limited to 'Build/source/texk/tests/common-test.pl')
| -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. |