diff --git a/bin/Main.ml b/bin/Main.ml index b35deca..33eda60 100644 --- a/bin/Main.ml +++ b/bin/Main.ml @@ -124,11 +124,8 @@ let default_cmd = let run ~sw ~env = let*? t = OSnap.setup ~sw ~env ~config_path ~noCreate ~noOnly ~noSkip in let result = - Fun.protect - ~finally:(fun () -> OSnap.teardown t) - (fun () -> - try OSnap.run ~env t with - | exn -> Result.error (`OSnap_Unknown_Error exn)) + try OSnap.run ~env t with + | exn -> Result.error (`OSnap_Unknown_Error exn) in let () = match parallelism, t.config.parallelism with diff --git a/lib/OSnap.ml b/lib/OSnap.ml index f2faf86..8e19df4 100644 --- a/lib/OSnap.ml +++ b/lib/OSnap.ml @@ -67,8 +67,6 @@ let setup ~sw ~env ~noCreate ~noOnly ~noSkip ~config_path = Result.ok { config; tests_to_run; start_time; browser } ;; -let teardown t = Browser.Launcher.shutdown t.browser - let run ~env t = Eio.Switch.run @@ fun sw -> @@ -129,7 +127,6 @@ let run ~env t = in let end_time = Unix.gettimeofday () in let seconds = end_time -. start_time in - Browser.Launcher.shutdown browser; Test.Printer.stats ~seconds test_results ;; diff --git a/lib/OSnap.mli b/lib/OSnap.mli index 156c713..cb5fe88 100644 --- a/lib/OSnap.mli +++ b/lib/OSnap.mli @@ -31,8 +31,6 @@ val setup ] ) result -val teardown : t -> unit - val run : env:Eio_unix.Stdenv.base -> t diff --git a/lib/OSnap_Browser/OSnap_Browser_Launcher.ml b/lib/OSnap_Browser/OSnap_Browser_Launcher.ml index 86e35ef..0d2f871 100644 --- a/lib/OSnap_Browser/OSnap_Browser_Launcher.ml +++ b/lib/OSnap_Browser/OSnap_Browser_Launcher.ml @@ -92,5 +92,3 @@ let make ~sw ~env () = in Result.ok { ws = url; process; browserContextId = result.browserContextId } ;; - -let shutdown browser = Eio.Process.signal browser.process Sys.sigkill diff --git a/lib/OSnap_Browser/OSnap_Browser_Launcher.mli b/lib/OSnap_Browser/OSnap_Browser_Launcher.mli index cfd1f53..ab27389 100644 --- a/lib/OSnap_Browser/OSnap_Browser_Launcher.mli +++ b/lib/OSnap_Browser/OSnap_Browser_Launcher.mli @@ -8,5 +8,3 @@ val make | `OSnap_Chromium_Download_Failed ] ) result - -val shutdown : OSnap_Browser_Types.t -> unit