simplify mina automation fixture test result type

Author: glyh

src/test/archive/archive_node_tests/archive_precomputed_blocks_test.ml

@@ -144,4 +144,4 @@ let test_case (test_data : t) =
   let%map perf_data = extract_perf_metrics log_file in
   perf_metrics_to_yojson perf_data |> Yojson.to_file "archive.perf" ;
 
-  Ok Mina_automation_fixture.Intf.Passed
+  Mina_automation_fixture.Intf.Passed

src/test/archive/archive_node_tests/live_upgrade_archive.ml

@@ -60,4 +60,4 @@ let test_case (test_data : t) =
       archive_uri temp_dir
   in
 
-  Ok Mina_automation_fixture.Intf.Passed
+  Mina_automation_fixture.Intf.Passed

src/test/archive/archive_node_tests/load_genesis_ledger.ml

@@ -43,36 +43,32 @@ let test_case (test_data : t) =
     (Float.to_string max_postgres_memory) ;
   [%log info] "Sleep Duration: %s" (Time.Span.to_string sleep_duration) ;
 
-  let%map result =
-    let end_time = Time.add (Time.now ()) duration in
-    let rec loop () =
-      if Time.is_later (Time.now ()) ~than:end_time then Deferred.return ()
-      else
-        let memory = Archive.Process.get_memory_usage_mib process in
-        let%bind () =
-          match memory with
-          | Some mem ->
-              [%log info] "Archive Memory usage: %s MiB" (Float.to_string mem) ;
-              if Float.( > ) mem max_archive_memory then
-                failwith "Archive process memory exceeds 1GB"
-              else Deferred.return ()
-          | None ->
-              failwith "Error getting memory usage for archive process"
-        in
-        let%bind memory =
-          Utils.get_memory_usage_mib_of_user_process postgres_user_name
-        in
-        [%log info] "Postgres Memory usage: %s MiB" (Float.to_string memory) ;
-        if Float.( > ) memory max_postgres_memory then
-          failwith "Postgres memory exceeds 4GB" ;
-        let%bind () = Clock.after sleep_duration in
-        loop ()
-    in
-    match%map Monitor.try_with loop with
-    | Ok () ->
-        Mina_automation_fixture.Intf.Passed
-    | Error exn ->
-        [%log error] "Test failed: %s" (Exn.to_string exn) ;
-        Failed (Exn.to_string exn)
+  let end_time = Time.add (Time.now ()) duration in
+  let rec loop () =
+    if Time.is_later (Time.now ()) ~than:end_time then Deferred.return ()
+    else
+      let memory = Archive.Process.get_memory_usage_mib process in
+      let%bind () =
+        match memory with
+        | Some mem ->
+            [%log info] "Archive Memory usage: %s MiB" (Float.to_string mem) ;
+            if Float.( > ) mem max_archive_memory then
+              failwith "Archive process memory exceeds 1GB"
+            else Deferred.return ()
+        | None ->
+            failwith "Error getting memory usage for archive process"
+      in
+      let%bind memory =
+        Utils.get_memory_usage_mib_of_user_process postgres_user_name
+      in
+      [%log info] "Postgres Memory usage: %s MiB" (Float.to_string memory) ;
+      if Float.( > ) memory max_postgres_memory then
+        failwith "Postgres memory exceeds 4GB" ;
+      let%bind () = Clock.after sleep_duration in
+      loop ()
   in
-  Ok result
+  match%map Monitor.try_with loop with
+  | Ok () ->
+      Mina_automation_fixture.Intf.Passed
+  | Error exn ->
+      Failed (Error.of_exn exn)

src/test/archive/archive_node_tests/upgrade_archive.ml

@@ -49,4 +49,4 @@ let test_case (test_data : t) =
       archive_uri temp_dir
   in
 
-  Ok Mina_automation_fixture.Intf.Passed
+  Mina_automation_fixture.Intf.Passed

src/test/mina_automation/fixture/intf.ml

@@ -1,11 +1,12 @@
+open Core
 open Async
 
-type test_result = Passed | Failed of string | Warning of string
+type test_result = Passed | Failed of Error.t | Warning of string
 
 module type TestCase = sig
   type t
 
-  val test_case : t -> test_result Deferred.Or_error.t
+  val test_case : t -> test_result Deferred.t
 end
 
 module type Fixture = sig
@@ -24,7 +25,7 @@ module type Fixture = sig
   **)
   val setup : unit -> t Deferred.Or_error.t
 
-  val test_case : t -> test_result Deferred.Or_error.t
+  val test_case : t -> test_result Deferred.t
 
   val teardown : t -> unit Deferred.Or_error.t
 

src/test/mina_automation/runner/runner.ml

@@ -20,15 +20,17 @@ let run (module F : Intf.Fixture) =
       )
     (fun () ->
       match%bind F.test_case test_case_after_setup with
-      | Ok result ->
-          return result
-      | Error err ->
+      | Failed err ->
           let%map () = F.on_test_fail test_case_after_setup in
-          Intf.Failed (Error.to_string_hum err) )
+          Intf.Failed err
+      | result ->
+          return result )
 
 let run_blocking test_case () =
   match Async.Thread_safe.block_on_async_exn (fun () -> run test_case) with
   | Intf.Passed ->
       ()
-  | Warning msg | Failed msg ->
+  | Warning msg ->
       Alcotest.fail msg
+  | Failed err ->
+      Alcotest.fail (Error.to_string_hum err)