sig
  val create_test_plan : ?count:int -> unit -> unit
  val build_test_case :
    ?todo:string -> ?diag:TAPDocument.diagnostic -> bool -> string -> unit
  val build_diagnostic : string -> unit
  val build_extended_diagnostic_message :
    bool -> 'a -> 'a -> string -> TAPDocument.diagnostic option
  val build_diagnostic_message :
    bool -> string -> TAPDocument.diagnostic option
  module Tester :
    sig
      val plan : int -> (unit -> unit) -> string
      val no_plan : (unit -> unit) -> string
    end
end