summaryrefslogtreecommitdiff
path: root/2025/ocaml/test/domain/test_d01p02.ml
diff options
context:
space:
mode:
authorDJ O'Leary <dijitol@proton.me>2026-06-26 18:04:09 +0200
committerDJ O'Leary <dijitol@proton.me>2026-06-26 18:04:09 +0200
commit6d8fb621d1e93b83786890d6d9cb6f0d8defa8ae (patch)
tree17c90d3984c114aa023600cc5bec6f6004b02243 /2025/ocaml/test/domain/test_d01p02.ml
parentad4ea5ca4bc9f7540ee1d6a4fa2d881709dc6459 (diff)
refactor!: invert repo directory structure
now is language first
Diffstat (limited to '2025/ocaml/test/domain/test_d01p02.ml')
-rw-r--r--2025/ocaml/test/domain/test_d01p02.ml41
1 files changed, 0 insertions, 41 deletions
diff --git a/2025/ocaml/test/domain/test_d01p02.ml b/2025/ocaml/test/domain/test_d01p02.ml
deleted file mode 100644
index 98c06c3..0000000
--- a/2025/ocaml/test/domain/test_d01p02.ml
+++ /dev/null
@@ -1,41 +0,0 @@
-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 ] ) ]