From ffc69860a6a635213e1bd13e1e339f4755cba1d8 Mon Sep 17 00:00:00 2001
From: Geert Josten <geert.josten@marklogic.com>
Date: Tue, 7 Jul 2015 16:26:35 +0200
Subject: [PATCH] Fixed #189: don't get port from browser for server-side
 localhost http-get

---
 src/test/test-helper.xqy | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/test/test-helper.xqy b/src/test/test-helper.xqy
index 4d97a355..172c5ad4 100644
--- a/src/test/test-helper.xqy
+++ b/src/test/test-helper.xqy
@@ -314,7 +314,7 @@ declare function helper:easy-url($url) as xs:string
 {
   if (fn:starts-with($url, "http")) then $url
   else
-    fn:concat("http://localhost:", fn:tokenize(xdmp:get-request-header("Host"), ":")[2], if (fn:starts-with($url, "/")) then () else "/", $url)
+    fn:concat("http://localhost:", xdmp:get-request-port(), if (fn:starts-with($url, "/")) then () else "/", $url)
 };
 
 declare function helper:http-get($url as xs:string, $options as node()?)
@@ -322,7 +322,7 @@ declare function helper:http-get($url as xs:string, $options as node()?)
   let $uri :=
     if (fn:starts-with($url, "http")) then $url
     else
-      fn:concat("http://localhost:", fn:tokenize(xdmp:get-request-header("Host"), ":")[2], if (fn:starts-with($url, "/")) then () else "/", $url)
+      fn:concat("http://localhost:", xdmp:get-request-port(), if (fn:starts-with($url, "/")) then () else "/", $url)
   return
     xdmp:http-get($uri, $options)
 };