sig
  type redirect_fds =
      [ `Dev_null
      | `Do_not_redirect
      | `File_append of string
      | `File_truncate of string ]
  val daemonize :
    ?redirect_stdout:redirect_fds ->
    ?redirect_stderr:redirect_fds -> ?cd:string -> ?umask:int -> unit -> unit
  val daemonize_wait :
    ?redirect_stdout:redirect_fds ->
    ?redirect_stderr:redirect_fds ->
    ?cd:string -> ?umask:int -> unit -> unit -> unit
  val ounit_tests : unit -> OUnit.test
end