Index: openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl 29 Jun 2018 08:54:38 -0000 1.5 +++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl 4 Jul 2018 22:22:44 -0000 1.6 @@ -137,8 +137,26 @@ aa_true "$msg fixing markup?" {$result eq $test_result} } - aa_log "trying to get start page from [util::configured_location]/" - array set r [util::http::get -url [util::configured_location]/] + # + # Maybe a temporary fix: when the server is configured with a + # wildcard IPv4 address 0.0.0.0 and the hostname "localhost", and + # localhost is mapped on the host to the IPv6 address "::1", then + # ns_http to http://localhost:.../ is rejected, while the + # connection to the current IPv4 address http://127.0.0.1:.../ + # succeeds. However, the determination of the current IP address + # requires NaviServer 4.99.17d3 or newer, so we can't assume, this + # works always. + # + set mylocation [util::configured_location]/ + if {![catch {set myip [ns_conn currentaddr]}]} { + set driver_info [util_driver_info] + set mylocation [util::join_location \ + -proto [dict get $driver_info proto] \ + -hostname $myip \ + -port [dict get $driver_info port]] + } + aa_log "trying to get start page from $mylocation" + array set r [util::http::get -url $mylocation] set test_case $r(page) set msg "Test case 6: in our index page is removing tags ok"