From 77df47391389b30f27b92ed13e805ac2cb588903 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 9 Sep 2011 01:54:35 +0000 Subject: beginning of updmap tests, option handling update git-svn-id: svn://tug.org/texlive/trunk@23879 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/tests/common-test.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'Build/source/texk/tests') 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. -- cgit v1.2.3