4 files changed, 0 insertions, 79 deletions
diff --git a/ocaml/test/application/dune b/ocaml/test/application/dune
deleted file mode 100644
index 7a90f81..0000000
--- a/ocaml/test/application/dune
+++ /dev/null
@@ -1,9 +0,0 @@
-(tests
- (names
-   test_d01p01
-   test_d01p02
-   test_d04p01)
- (libraries
-   application
-   domain
-   alcotest))
diff --git a/ocaml/test/application/test_d01p01.ml b/ocaml/test/application/test_d01p01.ml
deleted file mode 100644
index e57db01..0000000
--- a/ocaml/test/application/test_d01p01.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-open Application.D01p01
-
-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] ) ]
diff --git a/ocaml/test/application/test_d01p02.ml b/ocaml/test/application/test_d01p02.ml
deleted file mode 100644
index bbda035..0000000
--- a/ocaml/test/application/test_d01p02.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-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
-    (match solve example_data () with Error _ -> 0 | Ok ans -> ans)
-
-let () =
-  let open Alcotest in
-  run "D01p02"
-    [ ( "given-example"
-      , [test_case "full given example" `Quick test_full_given_example] ) ]
diff --git a/ocaml/test/application/test_d04p01.ml b/ocaml/test/application/test_d04p01.ml
deleted file mode 100644
index ffbe102..0000000
--- a/ocaml/test/application/test_d04p01.ml
+++ /dev/null
@@ -1,24 +0,0 @@
-open Application.D04p01
-
-let example =
-  {|..@@.@@@@.
-@@@.@.@.@@
-@@@@@.@.@@
-@.@@@@..@.
-@@.@@@@.@@
-.@@@@@@@.@
-.@.@.@.@@@
-@.@@@.@@@@
-.@@@@@@@@.
-@.@.@@@.@.|}
-
-let test_input_to_matrix have want () =
-  Alcotest.(check int) "number of rolls of paper that are accessible" want
-  @@ match solve have () with Error _ -> 0 | Ok ans -> ans
-
-let () =
-  let open Alcotest in
-  run "D04p01"
-    [ ( "given-example"
-      , [test_case "full example" `Quick @@ test_input_to_matrix example 13] )
-    ]