exit on failure after printing

ocaml-multicore · Feb 3, 2025 · 3245d94 · 3245d94
1 parent 94d1bac
commit 3245d94
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/dynarray/lin_tests.ml b/src/dynarray/lin_tests.ml
@@ -45,7 +45,7 @@ let lin_test ~rep_count ~retries ~count ~name ~lin_prop =
          print_endline msg;
          print_endline (Util.print_triple_vertical ~fig_indent:5 ~res_width:35
                           (fun c -> Printf.sprintf "%s" (DAT.show_cmd c)) t);
-         false)
+         exit 1)
 
 let stress_test ~count ~name =
   lin_test