[svn] Minor bugfixing for test suite.

[wget] / tests / Test.pm

diff --git a/tests/Test.pm b/tests/Test.pm
index d25ee4ff6e83940c2b6e56c47a7607d18d503561..d996e77d7612bea3f6675a4b29e128dc77df10a1 100755 (executable)
--- a/tests/Test.pm
+++ b/tests/Test.pm
@@ -81,7 +81,10 @@ sub run {
     # Call wget
     chdir ("$self->{_workdir}/$self->{_name}/output");
     # print "Calling $self->{_cmdline}\n";
-    my $errcode = system ("$self->{_workdir}/../src/$self->{_cmdline}");
+    my $errcode = 
+        ($self->{_cmdline} =~ m{^/.*}) 
+            ? system ($self->{_cmdline})
+            : system ("$self->{_workdir}/../src/$self->{_cmdline}");
 
     # Shutdown server
     kill ('TERM', $pid);