sig val command : lock_file:string -> name:string -> (unit -> unit) -> Command.t val ounit_tests : unit -> OUnit.test end