Add test script

This commit is contained in:
Smaug123
2021-02-17 18:39:57 +00:00
parent 577e113bc3
commit deff47cc8f

19
test.fsx Normal file
View 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