tests: load target

build.sh

@@ -2,4 +2,4 @@
 source .env
 dotnet tool restore
 dotnet paket restore
-dotnet run --project ./build/build.fsproj -- -t Tests
+dotnet run --project ./build/build.fsproj -- -t Load

build/build.fs

@@ -52,6 +52,14 @@ let initTargets () =
       res.Errors |> Seq.iter (eprintfn "%s")
       failwith "Tests failed."
 
+  // Requires `httperf` installed on the server (only linux atm)
+  Target.create "Load" <| fun _ ->
+    let path = "examples" </> "Pong"
+    let res = DotNet.exec id "run" (sprintf "-c Release --framework net7.0 --project %s" path)
+    if not res.OK then
+      res.Errors |> Seq.iter (eprintfn "%s")
+      failwith "Tests failed."
+
   Target.create "Pack" <| fun _ ->
     let pkg = Path.GetFullPath "./pkg"
     let props (project: string) (p: Paket.PaketPackParams) =
@@ -108,6 +116,7 @@ let initTargets () =
     ==> "AsmInfo"
     ==> "Build"
     ==> "Tests"
+    ==> "Load"
     ==> "Pack"
     ==> "Release"
 
@@ -119,5 +128,5 @@ let main argv =
     |> Context.RuntimeContext.Fake
     |> Context.setExecutionContext
     initTargets ()
-    Target.runOrDefault "Tests"
+    Target.runOrDefault "Load"
     0

examples/Pong/Program.fs

@@ -1,4 +1,4 @@
-module Pong.Program
+module Pong.Program
 
 open Suave
 open Suave.Successful
@@ -45,7 +45,7 @@ let main argv =
   listening |> Async.RunSynchronously |> printfn "start stats: %A"
 
   // launch httperf
-  let output = execute "httperf" (sprintf "--hog --server=localhost --port=%d --uri=/ --rate=1000 --num-conns=1000 --num-calls=1000 --burst-length=20" port)
+  let output = execute "httperf" (sprintf "--hog --server=localhost --port=%d --uri=/ --rate=100 --num-conns=1000 --num-calls=1000 --burst-length=20" port)
 
   Console.WriteLine output