module Test_suite: sig .. end
sig
end
val test_suite : string -> unit
string -> unit
val run : unit -> unit
unit -> unit