diff options
| author | DJ O'Leary <dijitol@proton.me> | 2025-12-08 01:55:28 +0100 |
|---|---|---|
| committer | DJ O'Leary <dijitol@proton.me> | 2025-12-08 01:57:20 +0100 |
| commit | 0f34d9a931791406d2cabf282742530195f71927 (patch) | |
| tree | 076e546f64f8f541e91bf135d5d5c78cde173ccf /2025/ocaml/test | |
| parent | 63c4dea442acb32db82318b4399ac05fb955e6d0 (diff) | |
refactor(2025,ocaml): use result type for answers to allow for returning errors
Diffstat (limited to '2025/ocaml/test')
| -rw-r--r-- | 2025/ocaml/test/application/test_d01p01.ml | 4 | ||||
| -rw-r--r-- | 2025/ocaml/test/application/test_d01p02.ml | 4 | ||||
| -rw-r--r-- | 2025/ocaml/test/application/test_d04p01.ml | 2 |
3 files changed, 7 insertions, 3 deletions
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 |