feat(2025d1p2): implement solution to problem

4 files changed, 66 insertions, 2 deletions

diff --git a/2025/ocaml/test/application/dune b/2025/ocaml/test/application/dune
index fc384d8..53166ad 100644
--- a/2025/ocaml/test/application/dune
+++ b/2025/ocaml/test/application/dune
@@ -1,6 +1,7 @@
 (tests
  (names
-   test_d01p01)
+   test_d01p01
+   test_d01p02)
  (libraries
    application
    domain
diff --git a/2025/ocaml/test/application/test_d01p02.ml b/2025/ocaml/test/application/test_d01p02.ml
new file mode 100644
index 0000000..e29c932
--- /dev/null
+++ b/2025/ocaml/test/application/test_d01p02.ml
@@ -0,0 +1,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] ) ]
diff --git a/2025/ocaml/test/domain/dune b/2025/ocaml/test/domain/dune
index e3dda1a..7630ea4 100644
--- a/2025/ocaml/test/domain/dune
+++ b/2025/ocaml/test/domain/dune
@@ -1,6 +1,7 @@
 (tests
  (names
-   test_d01p01)
+   test_d01p01
+   test_d01p02)
  (libraries
    domain
    alcotest))
diff --git a/2025/ocaml/test/domain/test_d01p02.ml b/2025/ocaml/test/domain/test_d01p02.ml
new file mode 100644
index 0000000..98c06c3
--- /dev/null
+++ b/2025/ocaml/test/domain/test_d01p02.ml
@@ -0,0 +1,41 @@
+open Domain.D01p02
+
+let test_start () =
+  Alcotest.(check int) "incorrect starting state" 50 (Dial.to_int Dial.start)
+
+let test_turn errmsg exp dir =
+  Alcotest.(check int)
+    errmsg exp
+    (Dial.to_int (fst (Turner.turn Dial.start 0 dir)))
+
+let test_turn_left_one () =
+  test_turn "incorrect result when turning left one step" 49 (Dial.Left 1)
+
+let test_turn_left_100 () =
+  test_turn "incorrect result when turning left 100 steps" 50 (Dial.Left 100)
+
+let test_turn_right_one () =
+  test_turn "incorrect result when turning right one step" 51 (Dial.Right 1)
+
+let test_turn_right_100 () =
+  test_turn "incorrect result when turning right 100 steps" 50 (Dial.Right 100)
+
+let test_zero_count errmsg exp dir =
+  Alcotest.(check int) errmsg exp (snd (Turner.turn Dial.start 0 dir))
+
+let test_zero_count_right_1000 () =
+  test_zero_count "zero MUST be counted each time it is passed" 10
+    (Dial.Right 1000)
+
+let () =
+  let open Alcotest in
+  run "D01p02"
+    [ ("initial-state", [test_case "starting state" `Quick test_start])
+    ; ( "turning-dial-regression"
+      , [ test_case "turning left one step" `Quick test_turn_left_one
+        ; test_case "turning right one step" `Quick test_turn_right_one
+        ; test_case "turning left 100 steps" `Quick test_turn_left_100
+        ; test_case "turning right 100 steps" `Quick test_turn_right_100 ] )
+    ; ( "zero-count"
+      , [ test_case "zero count after turning right 1000 steps" `Quick
+            test_zero_count_right_1000 ] ) ]