Fossil SCM
Add the fossil-stress.tcl script for stress-testing server implementations.
Commit
0a6d8ff505faea06a09b22c894a0cc51eb73d43722c6739a8c051704ac247f12
Parent
f4a9df4dd0d304b…
1 file changed
+20
+20
| --- a/tools/fossil-stress.tcl | ||
| +++ b/tools/fossil-stress.tcl | ||
| @@ -0,0 +1,20 @@ | ||
| 1 | +#!/usr/bin/tclsh | |
| 2 | +# | |
| 3 | +# Run this script, giving the url of a Fossil server instances as the | |
| 4 | +# argument, and this script will start sending HTTP requests into the | |
| 5 | +# that server instance as fast as it can, as a stress test for the | |
| 6 | +# server implementation. | |
| 7 | +# | |
| 8 | +set url [lindex $argv 0] | |
| 9 | +if {$url==" $argv06G@BA,6T@HU,h:set cnt 0 | |
| 10 | + while {![eof $x]} { | |
| 11 | + incr cntV@T8,O: close $x | |
| 12 | + return $cnt5x@Tb,1Q:cnt 0 | |
| 13 | +while {1} { | |
| 14 | + foreach p $pages { | |
| 15 | + incr cnt | |
| 16 | + puts -nonewline "$cnt: $path$p... N@RS,N:set n [send_one_requestM@bl,S:] | |
| 17 | + puts "$n bytes" | |
| 18 | + } | |
| 19 | +} | |
| 20 | +14dvea; |
| --- a/tools/fossil-stress.tcl | |
| +++ b/tools/fossil-stress.tcl | |
| @@ -0,0 +1,20 @@ | |
| --- a/tools/fossil-stress.tcl | |
| +++ b/tools/fossil-stress.tcl | |
| @@ -0,0 +1,20 @@ | |
| 1 | #!/usr/bin/tclsh |
| 2 | # |
| 3 | # Run this script, giving the url of a Fossil server instances as the |
| 4 | # argument, and this script will start sending HTTP requests into the |
| 5 | # that server instance as fast as it can, as a stress test for the |
| 6 | # server implementation. |
| 7 | # |
| 8 | set url [lindex $argv 0] |
| 9 | if {$url==" $argv06G@BA,6T@HU,h:set cnt 0 |
| 10 | while {![eof $x]} { |
| 11 | incr cntV@T8,O: close $x |
| 12 | return $cnt5x@Tb,1Q:cnt 0 |
| 13 | while {1} { |
| 14 | foreach p $pages { |
| 15 | incr cnt |
| 16 | puts -nonewline "$cnt: $path$p... N@RS,N:set n [send_one_requestM@bl,S:] |
| 17 | puts "$n bytes" |
| 18 | } |
| 19 | } |
| 20 | 14dvea; |