From: sts <sts@kronos>
Date: Thu, 6 Nov 2008 23:01:25 +0000 (+0100)
Subject: Call tests with executable name.
X-Git-Tag: v1.13~392
X-Git-Url: http://sjero.net/git/?p=wget;a=commitdiff_plain;h=cf4c155c0c16da198c88fb5087aa0b732c364da6

Call tests with executable name.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 19270b6f..a401c297 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-06  Steven Schubiger  <stsc@members.fsf.org>
+
+	* run-px: When executing test scripts, invoke them with the
+	current perl executable name as determined by env.
+
 2008-11-06  Micah Cowan  <micah@cowan.name>
 
 	* run-px: Use strict (thanks Steven Schubiger!).
diff --git a/tests/run-px b/tests/run-px
index 05f6eda6..60b848d1 100755
--- a/tests/run-px
+++ b/tests/run-px
@@ -52,7 +52,7 @@ my @results;
 
 for my $test (@tests) {
     print "Running $test\n\n";
-    system("$top_srcdir/tests/$test");
+    system("$^X $top_srcdir/tests/$test");
     push @results, $?;
 }