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 +++- 2025/ocaml/test/application/test_d01p02.ml | 4 +++- 2025/ocaml/test/application/test_d04p01.ml | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) (limited to '2025/ocaml/test/application') 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 diff --git a/2025/ocaml/test/application/test_d01p02.ml b/2025/ocaml/test/application/test_d01p02.ml index e29c932..bbda035 100644 --- a/2025/ocaml/test/application/test_d01p02.ml +++ b/2025/ocaml/test/application/test_d01p02.ml @@ -12,7 +12,9 @@ R14 L82|} let test_full_given_example () = - Alcotest.(check int) "full given example" 6 (solve example_data ()) + Alcotest.(check int) + "full given example" 6 + (match solve example_data () with Error _ -> 0 | Ok ans -> ans) let () = let open Alcotest in diff --git a/2025/ocaml/test/application/test_d04p01.ml b/2025/ocaml/test/application/test_d04p01.ml index 783659e..ffbe102 100644 --- a/2025/ocaml/test/application/test_d04p01.ml +++ b/2025/ocaml/test/application/test_d04p01.ml @@ -14,7 +14,7 @@ let example = let test_input_to_matrix have want () = Alcotest.(check int) "number of rolls of paper that are accessible" want - @@ solve have () + @@ match solve have () with Error _ -> 0 | Ok ans -> ans let () = let open Alcotest in -- cgit v1.2.3