functor (Test_pipeline : TEST_PIPELINE->   sig     val write_file : string -> content:string -> unit     val cmdf : ('a, unit, string, unit) Pervasives.format4 -> 'a     val ( // ) : string -> string -> string     val test_dir : string     val main : string -> string list   end