Use alcotest

ocaml-multicore · Jun 19, 2023 · d888bc5 · d888bc5
1 parent 354496d
commit d888bc5
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 4 deletions.
diff --git a/domain-local-await.opam b/domain-local-await.opam
@@ -10,6 +10,7 @@ depends: [
   "dune" {>= "3.3"}
   "ocaml" {>= "4.12.0"}
   "thread-table" {>= "0.1.0"}
+  "alcotest" {>= "1.7.0" & with-test}
   "mdx" {>= "1.10.0" & with-test}
   "odoc" {with-doc}
 ]

diff --git a/dune-project b/dune-project
@@ -11,5 +11,6 @@
  (depends
   (ocaml (>= 4.12.0))
   (thread-table (>= 0.1.0))
+  (alcotest (and (>= 1.7.0) :with-test))
   (mdx (and (>= 1.10.0) :with-test))))
 (using mdx 0.2)
diff --git a/test/dune b/test/dune
@@ -1,3 +1,3 @@
 (test
  (name test)
- (libraries domain-local-await threads))
+ (libraries domain-local-await threads alcotest))
diff --git a/test/test.ml b/test/test.ml
@@ -34,8 +34,11 @@ let test_all_threads_are_woken_up () =
 
   threads |> List.iter Thread.join
 
-let () =
+let basics () =
   test_all_threads_are_woken_up ();
   Domain_local_await.per_thread (module Thread);
-  test_all_threads_are_woken_up ();
-  ()
+  test_all_threads_are_woken_up ()
+
+let () =
+  Alcotest.run "Domain_local_await"
+    [ ("basics", [ Alcotest.test_case "" `Quick basics ]) ]