From deff47cc8f5d80ec1c766543a2270c26a0c21060 Mon Sep 17 00:00:00 2001
From: Smaug123 <patrick+github@patrickstevens.co.uk>
Date: Wed, 17 Feb 2021 18:39:57 +0000
Subject: [PATCH] Add test script

---
 test.fsx | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 test.fsx

diff --git a/test.fsx b/test.fsx
new file mode 100644
index 0000000..dae8b33
--- /dev/null
+++ b/test.fsx
@@ -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