Differences From Artifact [3a065aec45]:

• File test/tester.tcl — part of check-in [a88ca0d7dd] at 2016-10-14 19:35:15 on branch trunk — Adjustments to the 'test_start_server' Fossil test suite procedure to make it work better on Windows. (user: mistachkin size: 26805) [more...]

To Artifact [4f61582242]:

• File test/tester.tcl — part of check-in [6c8cec7341] at 2016-10-14 22:49:03 on branch trunk — Add the --localhost argument to the fossil server command invoked by test_start_server in test/tester.tcl. This change causes the server to only bind to localhost:8080, which does not trigger the Windows Firewall to panic about a program attempting to communicate with the world. Tested on a 64-bit binary built from VS2010, and a 32-bit binaray build from MinGW GCC 4.2.7, both under Windows 10 Pro. I expect the flag works and is harmless on other platforms. (user: rberteig size: 26817)

753
754
755
756
757
758
759
760
761
762
763
764
765
766
767

# This procedure executes the "fossil server" command.  The return value
# is a list comprised of the new process identifier and the port on which
# the server started.  The varName argument refers to a variable
# where the "stop argument" is to be stored.  This value must eventually be
# passed to the [test_stop_server] procedure.
proc test_start_server { repository {varName ""} } {
  global fossilexe tempPath
  set command [list exec $fossilexe server]
  if {[string length $varName] > 0} {
    upvar 1 $varName stopArg
  }
  if {$::tcl_platform(platform) eq "windows"} {
    set stopArg [file join [getTemporaryPath] [appendArgs \
        [string trim [clock seconds] -] _ [getSeqNo] .stopper]]
    lappend command --stopper $stopArg

|

753
754
755
756
757
758
759
760
761
762
763
764
765
766
767

# This procedure executes the "fossil server" command.  The return value
# is a list comprised of the new process identifier and the port on which
# the server started.  The varName argument refers to a variable
# where the "stop argument" is to be stored.  This value must eventually be
# passed to the [test_stop_server] procedure.
proc test_start_server { repository {varName ""} } {
  global fossilexe tempPath
  set command [list exec $fossilexe server --localhost]
  if {[string length $varName] > 0} {
    upvar 1 $varName stopArg
  }
  if {$::tcl_platform(platform) eq "windows"} {
    set stopArg [file join [getTemporaryPath] [appendArgs \
        [string trim [clock seconds] -] _ [getSeqNo] .stopper]]
    lappend command --stopper $stopArg