summaryrefslogtreecommitdiff
path: root/Build/source/texk/tests
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-09-09 01:54:35 +0000
committerKarl Berry <karl@freefriends.org>2011-09-09 01:54:35 +0000
commit77df47391389b30f27b92ed13e805ac2cb588903 (patch)
tree56d876d3e16a9500528053affc8c3c3c7590fbc0 /Build/source/texk/tests
parentb0d615a39fa08cf53df7081d22c15d93a6305b7b (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.pl10
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.