HTTP IPv6 support added to the test suite

1 files changed, 5 insertions, 1 deletions

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index d458a35c2..bdd21f9a8 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -6,6 +6,7 @@ my $verbose=0; # set to 1 for debugging
 
 my $dir=".";
 my $port = 8999; # just a default
+my $ipv6;
 do {
     if($ARGV[0] eq "-v") {
         $verbose=1;
@@ -17,6 +18,9 @@ do {
     elsif($ARGV[0] =~ /^(\d+)$/) {
         $port = $1;
     }
+    elsif($ARGV[0] =~ /^ipv6/i) {
+        $ipv6="--ipv6 ";
+    }
 } while(shift @ARGV);
 
-exec("server/sws $port $dir");
+exec("server/sws $ipv6$port $dir");