Fossil SCM
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.
Commit
6c8cec734114b5ce451e6ec1e79191f1353f3744
Parent
3a35ac58bbcd3f6…
1 file changed
+1
-1
+1
-1
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -755,11 +755,11 @@ | ||
| 755 | 755 | # the server started. The varName argument refers to a variable |
| 756 | 756 | # where the "stop argument" is to be stored. This value must eventually be |
| 757 | 757 | # passed to the [test_stop_server] procedure. |
| 758 | 758 | proc test_start_server { repository {varName ""} } { |
| 759 | 759 | global fossilexe tempPath |
| 760 | - set command [list exec $fossilexe server] | |
| 760 | + set command [list exec $fossilexe server --localhost] | |
| 761 | 761 | if {[string length $varName] > 0} { |
| 762 | 762 | upvar 1 $varName stopArg |
| 763 | 763 | } |
| 764 | 764 | if {$::tcl_platform(platform) eq "windows"} { |
| 765 | 765 | set stopArg [file join [getTemporaryPath] [appendArgs \ |
| 766 | 766 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -755,11 +755,11 @@ | |
| 755 | # the server started. The varName argument refers to a variable |
| 756 | # where the "stop argument" is to be stored. This value must eventually be |
| 757 | # passed to the [test_stop_server] procedure. |
| 758 | proc test_start_server { repository {varName ""} } { |
| 759 | global fossilexe tempPath |
| 760 | set command [list exec $fossilexe server] |
| 761 | if {[string length $varName] > 0} { |
| 762 | upvar 1 $varName stopArg |
| 763 | } |
| 764 | if {$::tcl_platform(platform) eq "windows"} { |
| 765 | set stopArg [file join [getTemporaryPath] [appendArgs \ |
| 766 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -755,11 +755,11 @@ | |
| 755 | # the server started. The varName argument refers to a variable |
| 756 | # where the "stop argument" is to be stored. This value must eventually be |
| 757 | # passed to the [test_stop_server] procedure. |
| 758 | proc test_start_server { repository {varName ""} } { |
| 759 | global fossilexe tempPath |
| 760 | set command [list exec $fossilexe server --localhost] |
| 761 | if {[string length $varName] > 0} { |
| 762 | upvar 1 $varName stopArg |
| 763 | } |
| 764 | if {$::tcl_platform(platform) eq "windows"} { |
| 765 | set stopArg [file join [getTemporaryPath] [appendArgs \ |
| 766 |