add case for speedtest project

Author: HLWeil

tests/Speedtest/ManyStudies.fs

@@ -0,0 +1,13 @@
+module ManyStudies
+
+open ARCtrl.ISA.Spreadsheet
+open ARCtrl.ISA
+
+
+let write () =
+
+    let inv = ArcInvestigation.init("MyInvestigation")
+    for i = 0 to 1500 do 
+        let s = ArcStudy.init($"Study{i}")
+        inv.AddRegisteredStudy(s)
+    ArcInvestigation.toFsWorkbook inv

tests/Speedtest/Program.fs

@@ -4,8 +4,15 @@
 [<EntryPoint>]
 let main argv =
 
-    LargeStudy.createStudy 10000
-    |> LargeStudy.toWorkbook
-    |> LargeStudy.fromWorkbook
-    |> ignore
-    1
+    if Array.contains "--manyStudies" argv then
+        ManyStudies.write() |> ignore
+        1
+    elif Array.contains "--largeStudy" argv then
+
+        LargeStudy.createStudy 10000
+        |> LargeStudy.toWorkbook
+        |> LargeStudy.fromWorkbook
+        |> ignore
+        1
+    else 
+        0

tests/Speedtest/Speedtest.fsproj

@@ -6,6 +6,7 @@
   </PropertyGroup>
 
   <ItemGroup>
+    <Compile Include="ManyStudies.fs" />
     <Compile Include="LargeStudy.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>