Clear console before running command in exec -w

This fixes an issue where the build progress stays on the console after the build completes, and the first line of the output of the command being exec'd is printed on teh same line as the build progress. A side effect of this change is that some of the "Build Successful" messages in tests get truncated. Signed-off-by: Stephen Sherratt <stephen@sherra.tt>
ocaml · Oct 18, 2024 · 5a89166 · 5a89166
1 parent 1becc6e
commit 5a89166
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 9 deletions.
diff --git a/bin/exec.ml b/bin/exec.ml
@@ -95,7 +95,11 @@ module Command_to_exec = struct
     { get_path_and_build_if_necessary; prog; args; env }
     =
     get_path_and_build_if_necessary prog
-    |> Fiber.map ~f:(Result.map ~f:(spawn_process ~root ~args ~env))
+    |> Fiber.map
+         ~f:
+           (Result.map ~f:(fun prog ->
+              Console.reset ();
+              spawn_process ~root ~args ~env prog))
   ;;
 end
 

diff --git a/test/blackbox-tests/test-cases/exec-watch/exec-pwd.t/run.t b/test/blackbox-tests/test-cases/exec-watch/exec-pwd.t/run.t
@@ -14,7 +14,7 @@ In watch mode, pwd is also the folder from which dune is launched.
   $ cd bin
   $ dune exec --root .. -w -- pwd > $OUTPUT &
   Entering directory '..'
-  Success, waiting for filesystem changes...
+   changes...
   Leaving directory '..'
   $ PID=$!
   $ until test -s $OUTPUT; do sleep 0.1; done;

diff --git a/test/blackbox-tests/test-cases/exec-watch/exec-watch-basic.t/run.t b/test/blackbox-tests/test-cases/exec-watch/exec-watch-basic.t/run.t
@@ -10,16 +10,16 @@ between each change to its code.
   > EOF
 
   $ dune exec --watch ./foo.exe &
-  Success, waiting for filesystem changes...
+   changes...
   foo
-  Success, waiting for filesystem changes...
+   changes...
   bar
   File "foo.ml", line 1, characters 23-24:
   1 | let () = print_endline "baz
                              ^
   Error: String literal not terminated
   Had 1 error, waiting for filesystem changes...
-  Success, waiting for filesystem changes...
+   changes...
   baz
   $ PID=$!
 

diff --git a/test/blackbox-tests/test-cases/exec-watch/exec-watch-ignore-sigterm.t/run.t b/test/blackbox-tests/test-cases/exec-watch/exec-watch-ignore-sigterm.t/run.t
@@ -1,9 +1,9 @@
 Test exec --watch with a program that ignores sigterm.
 
   $ dune exec --watch ./foo.exe &
-  Success, waiting for filesystem changes...
+   changes...
   1: before
-  Success, waiting for filesystem changes...
+   changes...
   2: before
   $ PID=$!
 

diff --git a/test/blackbox-tests/test-cases/exec-watch/exec-watch-multi-levels.t/run.t b/test/blackbox-tests/test-cases/exec-watch/exec-watch-multi-levels.t/run.t
@@ -4,7 +4,7 @@ project root directory.
 "dune exec --watch" works fine when invoked at the root level
   $ DONE_FLAG=_build/done_flag
   $ dune exec --watch ./bin/main.exe $DONE_FLAG &
-  Success, waiting for filesystem changes...
+   changes...
   foo
   $ PID=$!
 
@@ -19,7 +19,7 @@ Perform the same test above but first enter the "bin" directory.
   $ cd bin
   $ dune exec --root .. --watch ./bin/main.exe ../$DONE_FLAG &
   Entering directory '..'
-  Success, waiting for filesystem changes...
+   changes...
   foo
   Leaving directory '..'
   $ PID=$!