Commit 4b1350e4 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

when failing to verify a HTTP server, display what curl said on stderr to 

help debugging. (when using ipv6 I fell over this server that didn't have
the ipv6 module loaded)
parent 22a0c577

tests/runtests.pl

+7 −3
Original line number Diff line number Diff line
@@ -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);