fix(cram): improve error message on sh unavailable (#10978)

* fix(cram): improve error message on sh unavailable Signed-off-by: Etienne Marais <[email protected]>
ocaml · Sep 30, 2024 · 63fac22 · 63fac22
1 parent 9f3cda7
commit 63fac22
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/dune_rules/cram/cram_exec.ml b/src/dune_rules/cram/cram_exec.ml
@@ -424,7 +424,10 @@ let run ~env ~script lexbuf : string Fiber.t =
   let+ () =
     let sh =
       let path = Env_path.path Env.initial in
-      Option.value_exn (Bin.which ~path "sh")
+      match Bin.which ~path "sh" with
+      | Some sh -> sh
+      | None ->
+        User_error.raise [ Pp.text "CRAM test aborted, \"sh\" can not be found in PATH" ]
     in
     let metadata =
       let name =