Convert signal tests to cram

test/unit/async/dune

@@ -1,4 +1,5 @@
 (cram
+ (alias runtest-windows)
  (deps
    trivial.exe
    send.exe

test/unit/idle/dune

@@ -1,4 +1,5 @@
 (cram
+ (alias runtest-windows)
  (deps
    idle_trivial.exe
    idle_loop.exe

test/unit/loop/dune

@@ -1,4 +1,5 @@
 (cram
+ (alias runtest-windows)
  (deps
    trivial.exe
    configure.exe

test/unit/poll/dune

@@ -1,4 +1,5 @@
 (cram
+ (alias runtest-windows)
  (deps
    trivial.exe
    writable.exe

test/unit/pure/dune

@@ -1,4 +1,5 @@
 (cram
+ (alias runtest-windows)
  (deps
    version.exe
    error.exe

test/unit/signal/dune

@@ -0,0 +1,27 @@
+; Have not found a programmatic way to send signals to the process under test
+; that are received by libuv code on Windows, neither from OCaml nor from the
+; shell.
+
+(cram
+ (deps
+   trivial.exe
+   start.exe
+   stop.exe
+   oneshot.exe
+   signum.exe
+   start_exception.exe
+   oneshot_exception.exe
+ ))
+
+(executables
+ (names
+   trivial
+   start
+   stop
+   oneshot
+   signum
+   start_exception
+   oneshot_exception
+ )
+ (libraries luv unit_helpers)
+ (flags -open Unit_helpers))

test/unit/signal/helpers.ml

@@ -0,0 +1,7 @@
+let with_signal f =
+  Luv.Signal.init () |> ok "init" @@ fun signal ->
+  f signal;
+  Luv.Handle.close signal ignore
+
+let send_signal () =
+  Unix.kill (Unix.getpid ()) Sys.sighup

test/unit/signal/oneshot.ml

@@ -0,0 +1,11 @@
+let () =
+  Helpers.with_signal @@ fun signal ->
+
+  Luv.Signal.start_oneshot signal Luv.Signal.sighup (fun () ->
+    print_endline "Signal")
+  |> ok "start" @@ fun () ->
+
+  Helpers.send_signal ();
+
+  Luv.Loop.run () |> ignore;
+  print_endline "Ok"

test/unit/signal/oneshot_exception.ml

@@ -0,0 +1,13 @@
+let () =
+  Helpers.with_signal @@ fun signal ->
+
+  Luv.Error.set_on_unhandled_exception (function
+    | Exit -> print_endline "Ok"
+    | _ -> ());
+
+  Luv.Signal.start_oneshot signal Luv.Signal.sighup (fun () -> raise Exit)
+  |> ok "start" @@ fun () ->
+
+  Helpers.send_signal ();
+
+  Luv.Loop.run () |> ignore

test/unit/signal/signal.t

@@ -0,0 +1,21 @@
+  $ dune exec ./trivial.exe
+  Ok
+
+  $ dune exec ./start.exe
+  Ok
+
+  $ dune exec ./stop.exe
+  Ok
+
+  $ dune exec ./oneshot.exe
+  Signal
+  Ok
+
+  $ dune exec ./signum.exe
+  true
+
+  $ dune exec ./start_exception.exe
+  Ok
+
+  $ dune exec ./oneshot_exception.exe
+  Ok

test/unit/signal/signum.ml

@@ -0,0 +1,7 @@
+let () =
+  Helpers.with_signal @@ fun signal ->
+
+  Luv.Signal.start signal Luv.Signal.sighup ignore
+  |> ok "start" @@ fun () ->
+
+  Printf.printf "%b\n" (Luv.Signal.signum signal = Luv.Signal.sighup)

test/unit/signal/start.ml

@@ -0,0 +1,11 @@
+let () =
+  Helpers.with_signal @@ fun signal ->
+
+  Luv.Signal.start signal Luv.Signal.sighup (fun () ->
+    print_endline "Ok";
+    exit 0)
+  |> ok "start" @@ fun () ->
+
+  Helpers.send_signal ();
+
+  Luv.Loop.run () |> ignore

test/unit/signal/start_exception.ml

@@ -0,0 +1,13 @@
+let () =
+  Helpers.with_signal @@ fun signal ->
+
+  Luv.Error.set_on_unhandled_exception (function
+    | Exit -> print_endline "Ok"; exit 0
+    | _ -> ());
+
+  Luv.Signal.start signal Luv.Signal.sighup (fun () -> raise Exit)
+  |> ok "start" @@ fun () ->
+
+  Helpers.send_signal ();
+
+  Luv.Loop.run () |> ignore

test/unit/signal/stop.ml

@@ -0,0 +1,11 @@
+let () =
+  Helpers.with_signal @@ fun signal ->
+
+  Luv.Signal.start signal Luv.Signal.sighup (fun () ->
+    Luv.Signal.stop signal |> ok "stop" ignore)
+  |> ok "start" @@ fun () ->
+
+  Helpers.send_signal ();
+
+  Luv.Loop.run () |> ignore;
+  print_endline "Ok"

test/unit/signal/trivial.ml

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

test/unit/timer/dune

@@ -1,4 +1,5 @@
 (cram
+ (alias runtest-windows)
  (deps
    trivial.exe
    loop.exe