From 0f34d9a931791406d2cabf282742530195f71927 Mon Sep 17 00:00:00 2001 From: DJ O'Leary Date: Mon, 8 Dec 2025 01:55:28 +0100 Subject: refactor(2025,ocaml): use result type for answers to allow for returning errors --- 2025/ocaml/test/application/test_d01p01.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to '2025/ocaml/test/application/test_d01p01.ml') diff --git a/2025/ocaml/test/application/test_d01p01.ml b/2025/ocaml/test/application/test_d01p01.ml index 70f5ab2..e57db01 100644 --- a/2025/ocaml/test/application/test_d01p01.ml +++ b/2025/ocaml/test/application/test_d01p01.ml @@ -12,7 +12,9 @@ R14 L82|} let test_full_given_example () = - Alcotest.(check int) "full given example" 3 (solve example_data ()) + Alcotest.(check int) + "full given example" 3 + (match solve example_data () with Error _ -> 0 | Ok ans -> ans) let () = let open Alcotest in -- cgit v1.2.3