chore: fix ./build.sh quicktest typescript to run only (don't start a watch mode)

Author: MangelMaxime

src/Fable.Build/Quicktest/Core.fs

@@ -8,6 +8,7 @@ open Build.Utils
 type RunMode =
     | RunScript
     | RunCommand of string
+    | NoRun
 
 type QuicktestConfig =
     {
@@ -32,6 +33,7 @@ let genericQuicktest (config: QuicktestConfig) (args: string list) =
             // Use appendRaw to avoid quoting the command
             |> CmdLine.appendRaw "--run"
             |> CmdLine.appendRaw command
+        | NoRun -> cmdLine
 
     let projectDir = Path.Resolve config.ProjectDir
 

src/Fable.Build/Quicktest/TypeScript.fs

@@ -4,9 +4,11 @@ open Build.FableLibrary
 open Build.Quicktest.Core
 open BlackFox.CommandLine
 open Build.Utils
+open SimpleExec
 open System.IO
 
 let handle (args: string list) =
+    let isWatch = args |> List.contains "--watch"
 
     let srcDir = Path.Resolve "src/quicktest"
     let outDir = Path.Resolve "temp/quicktest-ts"
@@ -17,41 +19,63 @@ let handle (args: string list) =
     // Make sure to dispose the file handle, to avoid file locking
     FileInfo(mainFile).Create() |> _.Dispose()
 
-    let tscCommand =
-        CmdLine.empty
-        |> CmdLine.appendRaw "npx"
-        |> CmdLine.appendRaw "tsc"
-        |> CmdLine.appendRaw "-w"
-        |> CmdLine.appendPrefix "-p" srcDir
-        |> CmdLine.appendPrefix "--outDir" outDir
-        |> CmdLine.toString
-
-    let nodemonCommand =
-        CmdLine.empty
-        |> CmdLine.appendRaw "npx"
-        |> CmdLine.appendRaw "nodemon"
-        |> CmdLine.appendPrefix "--delay" "500ms"
-        |> CmdLine.appendPrefix "-w" outDir
-        |> CmdLine.appendRaw mainFile
-        |> CmdLine.toString
-
-    let appendQuotedCommand (arg: string) (cmd: CmdLine) =
-        cmd |> CmdLine.appendRaw "\"" |> CmdLine.appendRaw arg |> CmdLine.appendRaw "\""
-
-    let runCommand =
-        CmdLine.empty
-        |> CmdLine.appendRaw "npx"
-        |> CmdLine.appendRaw "concurrently"
-        |> appendQuotedCommand tscCommand
-        |> appendQuotedCommand nodemonCommand
-        |> CmdLine.toString
-
-    genericQuicktest
-        {
-            Language = "typescript"
-            FableLibBuilder = BuildFableLibraryTypeScript()
-            ProjectDir = "src/quicktest"
-            Extension = ".fs.ts"
-            RunMode = RunCommand runCommand
-        }
-        args
+    if isWatch then
+        let tscCommand =
+            CmdLine.empty
+            |> CmdLine.appendRaw "npx"
+            |> CmdLine.appendRaw "tsc"
+            |> CmdLine.appendRaw "-w"
+            |> CmdLine.appendPrefix "-p" srcDir
+            |> CmdLine.appendPrefix "--outDir" outDir
+            |> CmdLine.toString
+
+        let nodemonCommand =
+            CmdLine.empty
+            |> CmdLine.appendRaw "npx"
+            |> CmdLine.appendRaw "nodemon"
+            |> CmdLine.appendPrefix "--delay" "500ms"
+            |> CmdLine.appendPrefix "-w" outDir
+            |> CmdLine.appendRaw mainFile
+            |> CmdLine.toString
+
+        let appendQuotedCommand (arg: string) (cmd: CmdLine) =
+            cmd |> CmdLine.appendRaw "\"" |> CmdLine.appendRaw arg |> CmdLine.appendRaw "\""
+
+        let watchCommand =
+            CmdLine.empty
+            |> CmdLine.appendRaw "npx"
+            |> CmdLine.appendRaw "concurrently"
+            |> appendQuotedCommand tscCommand
+            |> appendQuotedCommand nodemonCommand
+            |> CmdLine.toString
+
+        genericQuicktest
+            {
+                Language = "typescript"
+                FableLibBuilder = BuildFableLibraryTypeScript()
+                ProjectDir = "src/quicktest"
+                Extension = ".fs.ts"
+                RunMode = RunCommand watchCommand
+            }
+            args
+    else
+        // Non-watch: run Fable, then tsc, then node as separate sequential steps
+        genericQuicktest
+            {
+                Language = "typescript"
+                FableLibBuilder = BuildFableLibraryTypeScript()
+                ProjectDir = "src/quicktest"
+                Extension = ".fs.ts"
+                RunMode = NoRun
+            }
+            args
+
+        let tscArgs =
+            CmdLine.empty
+            |> CmdLine.appendRaw "tsc"
+            |> CmdLine.appendPrefix "-p" srcDir
+            |> CmdLine.appendPrefix "--outDir" outDir
+            |> CmdLine.toString
+
+        Command.Run("npx", tscArgs)
+        Command.Run("node", mainFile)