Convert Async tests to cram tests

test/unit/async/async.t

@@ -0,0 +1,12 @@
+  $ dune exec ./trivial.exe
+  Ok
+
+  $ dune exec ./send.exe
+  Async
+
+  $ dune exec ./multithreading.exe
+  Async
+
+  $ dune exec ./exception.exe
+  Exception
+  Ok

test/unit/async/dune

@@ -0,0 +1,17 @@
+(cram
+ (deps
+   trivial.exe
+   send.exe
+   multithreading.exe
+   exception.exe
+ ))
+
+(executables
+ (names
+   trivial
+   send
+   multithreading
+   exception
+ )
+ (libraries luv unit_helpers)
+ (flags -open Unit_helpers))

test/unit/async/exception.ml

@@ -0,0 +1,17 @@
+let () =
+  Luv.Async.init (fun _async -> raise Exit)
+  |> ok "async init" @@ fun async ->
+
+  Luv.Error.set_on_unhandled_exception begin function
+    | Exit ->
+      print_endline "Exception";
+      Luv.Handle.close async ignore
+    | _ ->
+      ()
+  end;
+
+  Luv.Async.send async |> ok "send" @@ fun () ->
+
+  Luv.Loop.run () |> ignore;
+
+  print_endline "Ok"

test/unit/async/multithreading.ml

@@ -0,0 +1,13 @@
+let () =
+  Luv.Async.init begin fun async ->
+    print_endline "Async";
+    Luv.Handle.close async ignore
+  end
+  |> ok "async init" @@ fun async ->
+
+  ignore @@ Thread.create begin fun () ->
+    Unix.sleepf 0.2;
+    Luv.Async.send async |> ignore
+  end ();
+
+  Luv.Loop.run () |> ignore

test/unit/async/send.ml

@@ -0,0 +1,10 @@
+let () =
+  Luv.Async.init begin fun async ->
+    print_endline "Async";
+    Luv.Handle.close async ignore
+  end
+  |> ok "async init" @@ fun async ->
+
+  Luv.Async.send async |> ok "send" @@ fun () ->
+
+  Luv.Loop.run () |> ignore

test/unit/async/trivial.ml

@@ -0,0 +1,4 @@
+let () =
+  Luv.Async.init ignore |> ok "init" @@ fun async ->
+  Luv.Handle.close async ignore;
+  print_endline "Ok"

test/unit/timer/multithreading.ml

@@ -14,4 +14,4 @@ let () =
   Luv.Loop.run () |> ignore;
   let elapsed = Unix.gettimeofday () -. start_time in
 
-  Printf.printf "%b\n" (elapsed < 2.5)
+  Printf.printf "%b\n" (elapsed < 0.5)