Convert Idle, Check, Prepare tests to cram tests

test/unit/idle/check_double_start.ml

@@ -0,0 +1,10 @@
+let () =
+  Helpers.with_check @@ fun check ->
+
+  Luv.Check.start check (fun () -> print_endline "First")
+  |> ok "first start" @@ fun () ->
+  Luv.Check.start check (fun () -> print_endline "Second")
+  |> ok "second start" @@ fun () ->
+
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore;
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore

test/unit/idle/check_exception.ml

@@ -0,0 +1,8 @@
+let () =
+  Helpers.with_check @@ fun check ->
+  Luv.Error.set_on_unhandled_exception (function
+    | Exit -> print_endline "Ok"
+    | _ -> ());
+  Luv.Check.start check (fun () -> raise Exit)
+  |> ok "start" @@ fun () ->
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore

test/unit/idle/check_loop.ml

@@ -0,0 +1,4 @@
+let () =
+  Helpers.with_check @@ fun check ->
+  Ctypes.ptr_compare (Luv.Handle.get_loop check) (Luv.Loop.default ()) = 0
+  |> Printf.printf "%b\n"

test/unit/idle/check_start_stop.ml

@@ -0,0 +1,17 @@
+let () =
+  Helpers.with_check @@ fun check ->
+
+  let calls = ref 0 in
+  Luv.Check.start check begin fun () ->
+    print_endline "Check";
+    incr calls;
+    if !calls >= 2 then
+      Luv.Check.stop check |> ignore
+  end
+  |> ok "start" @@ fun () ->
+
+  while Luv.Loop.run ~mode:`NOWAIT () do
+    ()
+  done;
+
+  print_endline "Ok"

test/unit/idle/check_trivial.ml

@@ -0,0 +1,3 @@
+let () =
+  Helpers.with_check ignore;
+  print_endline "Ok"

test/unit/idle/dune

@@ -0,0 +1,39 @@
+(cram
+ (deps
+   idle_trivial.exe
+   idle_loop.exe
+   idle_start_stop.exe
+   idle_double_start.exe
+   idle_exception.exe
+   check_trivial.exe
+   check_loop.exe
+   check_start_stop.exe
+   check_double_start.exe
+   check_exception.exe
+   prepare_trivial.exe
+   prepare_loop.exe
+   prepare_start_stop.exe
+   prepare_double_start.exe
+   prepare_exception.exe
+ ))
+
+(executables
+ (names
+   idle_trivial
+   idle_loop
+   idle_start_stop
+   idle_double_start
+   idle_exception
+   check_trivial
+   check_loop
+   check_start_stop
+   check_double_start
+   check_exception
+   prepare_trivial
+   prepare_loop
+   prepare_start_stop
+   prepare_double_start
+   prepare_exception
+ )
+ (libraries luv unit_helpers)
+ (flags -open Unit_helpers))

test/unit/idle/helpers.ml

@@ -0,0 +1,14 @@
+let with_idle f =
+  Luv.Idle.init () |> ok "init" @@ fun idle ->
+  f idle;
+  Luv.Handle.close idle ignore
+
+let with_check f =
+  Luv.Check.init () |> ok "init" @@ fun check ->
+  f check;
+  Luv.Handle.close check ignore
+
+let with_prepare f =
+  Luv.Prepare.init () |> ok "init" @@ fun prepare ->
+  f prepare;
+  Luv.Handle.close prepare ignore

test/unit/idle/idle.t

@@ -0,0 +1,53 @@
+  $ dune exec ./idle_trivial.exe
+  Ok
+
+  $ dune exec ./idle_loop.exe
+  true
+
+  $ dune exec ./idle_start_stop.exe
+  Idle
+  Idle
+  Ok
+
+  $ dune exec ./idle_double_start.exe
+  First
+  First
+
+  $ dune exec ./idle_exception.exe
+  Ok
+
+  $ dune exec ./check_trivial.exe
+  Ok
+
+  $ dune exec ./check_loop.exe
+  true
+
+  $ dune exec ./check_start_stop.exe
+  Check
+  Check
+  Ok
+
+  $ dune exec ./check_double_start.exe
+  First
+  First
+
+  $ dune exec ./check_exception.exe
+  Ok
+
+  $ dune exec ./prepare_trivial.exe
+  Ok
+
+  $ dune exec ./prepare_loop.exe
+  true
+
+  $ dune exec ./prepare_start_stop.exe
+  Prepare
+  Prepare
+  Ok
+
+  $ dune exec ./prepare_double_start.exe
+  First
+  First
+
+  $ dune exec ./prepare_exception.exe
+  Ok

test/unit/idle/idle_double_start.ml

@@ -0,0 +1,10 @@
+let () =
+  Helpers.with_idle @@ fun idle ->
+
+  Luv.Idle.start idle (fun () -> print_endline "First")
+  |> ok "first start" @@ fun () ->
+  Luv.Idle.start idle (fun () -> print_endline "Second")
+  |> ok "second start" @@ fun () ->
+
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore;
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore

test/unit/idle/idle_exception.ml

@@ -0,0 +1,8 @@
+let () =
+  Helpers.with_idle @@ fun idle ->
+  Luv.Error.set_on_unhandled_exception (function
+    | Exit -> print_endline "Ok"
+    | _ -> ());
+  Luv.Idle.start idle (fun () -> raise Exit)
+  |> ok "start" @@ fun () ->
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore

test/unit/idle/idle_loop.ml

@@ -0,0 +1,4 @@
+let () =
+  Helpers.with_idle @@ fun idle ->
+  Ctypes.ptr_compare (Luv.Handle.get_loop idle) (Luv.Loop.default ()) = 0
+  |> Printf.printf "%b\n"

test/unit/idle/idle_start_stop.ml

@@ -0,0 +1,17 @@
+let () =
+  Helpers.with_idle @@ fun idle ->
+
+  let calls = ref 0 in
+  Luv.Idle.start idle begin fun () ->
+    print_endline "Idle";
+    incr calls;
+    if !calls >= 2 then
+      Luv.Idle.stop idle |> ignore
+  end
+  |> ok "start" @@ fun () ->
+
+  while Luv.Loop.run ~mode:`NOWAIT () do
+    ()
+  done;
+
+  print_endline "Ok"

test/unit/idle/idle_trivial.ml

@@ -0,0 +1,3 @@
+let () =
+  Helpers.with_idle ignore;
+  print_endline "Ok"

test/unit/idle/prepare_double_start.ml

@@ -0,0 +1,10 @@
+let () =
+  Helpers.with_prepare @@ fun prepare ->
+
+  Luv.Prepare.start prepare (fun () -> print_endline "First")
+  |> ok "first start" @@ fun () ->
+  Luv.Prepare.start prepare (fun () -> print_endline "Second")
+  |> ok "second start" @@ fun () ->
+
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore;
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore

test/unit/idle/prepare_exception.ml

@@ -0,0 +1,8 @@
+let () =
+  Helpers.with_prepare @@ fun prepare ->
+  Luv.Error.set_on_unhandled_exception (function
+    | Exit -> print_endline "Ok"
+    | _ -> ());
+  Luv.Prepare.start prepare (fun () -> raise Exit)
+  |> ok "start" @@ fun () ->
+  Luv.Loop.run ~mode:`NOWAIT () |> ignore

test/unit/idle/prepare_loop.ml

@@ -0,0 +1,4 @@
+let () =
+  Helpers.with_prepare @@ fun prepare ->
+  Ctypes.ptr_compare (Luv.Handle.get_loop prepare) (Luv.Loop.default ()) = 0
+  |> Printf.printf "%b\n"

test/unit/idle/prepare_start_stop.ml

@@ -0,0 +1,17 @@
+let () =
+  Helpers.with_prepare @@ fun prepare ->
+
+  let calls = ref 0 in
+  Luv.Prepare.start prepare begin fun () ->
+    print_endline "Prepare";
+    incr calls;
+    if !calls >= 2 then
+      Luv.Prepare.stop prepare |> ignore
+  end
+  |> ok "start" @@ fun () ->
+
+  while Luv.Loop.run ~mode:`NOWAIT () do
+    ()
+  done;
+
+  print_endline "Ok"

test/unit/idle/prepare_trivial.ml

@@ -0,0 +1,3 @@
+let () =
+  Helpers.with_prepare ignore;
+  print_endline "Ok"