mirror of
https://github.com/Smaug123/pulsing-server
synced 2025-10-05 23:18:40 +00:00
Add test script
This commit is contained in:
19
test.fsx
Normal file
19
test.fsx
Normal file
@@ -0,0 +1,19 @@
|
||||
open System.Net
|
||||
open System.Diagnostics
|
||||
|
||||
use timer = new Stopwatch()
|
||||
timer.Restart()
|
||||
|
||||
[
|
||||
for i in 1..1000 do
|
||||
yield
|
||||
async {
|
||||
let w = new WebClient()
|
||||
return w.DownloadString("http://localhost:5000/")
|
||||
}
|
||||
]
|
||||
|> Async.Parallel
|
||||
|> Async.RunSynchronously
|
||||
|
||||
timer.Stop()
|
||||
printfn "%+A" timer.ElapsedMilliseconds
|
Reference in New Issue
Block a user