sig val without_compactions : ?logger:(string -> unit) -> f:('a -> 'b) -> 'a -> 'b val ounit_tests : unit -> OUnit.test end