ocaml/test/year2025/day01/part01/test_solver.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

open Year2025.Day01.Part01.Solver

let example_data = {|L68
L30
R48
L5
R60
L55
L1
L99
R14
L82|}

let test_full_given_example () =
  Alcotest.(check int)
    "full given example" 3
    (match solve example_data () with Error _ -> 0 | Ok ans -> ans)

let () =
  let open Alcotest in
  run "D01p01"
    [ ( "given-example"
      , [test_case "full given example" `Quick test_full_given_example] ) ]