2025/ocaml/test/application/test_d01p02.ml


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

open Application.D01p02

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

let test_full_given_example () =
  Alcotest.(check int) "full given example" 6 (solve example_data ())

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