diff options
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/runtests.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 2a03117e8..f66fdeef0 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -350,15 +350,19 @@ sub runhttpserver { $pid = checkserver($pidfile); # verify if our/any server is running on this port - my $cmd = "$CURL -o log/verifiedserver -g \"http://$ip:$port/verifiedserver\" 2>/dev/null"; + my $cmd = "$CURL -o log/verifiedserver -g \"http://$ip:$port/verifiedserver\" 2>log/verifystderr"; print "CMD; $cmd\n" if ($verbose); my $res = system($cmd); $res >>= 8; # rotate the result my $data; - print "RUN: curl command returned $res\n" if ($verbose); - + if($res && $verbose) { + print "RUN: curl command returned $res\nRUN: "; + open(ERR, "<log/verifystderr"); + print <ERR>; + close(ERR); + } open(FILE, "<log/verifiedserver"); my @file=<FILE>; close(FILE); |