sig
  module type S =
    sig
      type t
      val ( >=. ) : t -> t -> bool
      val ( <=. ) : t -> t -> bool
      val ( =. ) : t -> t -> bool
      val ( >. ) : t -> t -> bool
      val ( <. ) : t -> t -> bool
      val ( <>. ) : t -> t -> bool
      val robustly_compare : t -> t -> int
    end
  val ounit_tests : unit -> OUnit.test
end