doc; test

This commit is contained in:
Simon Cruanes 2015-10-26 10:01:34 +01:00
parent 437852d18e
commit 80f36d20eb

View file

@ -66,6 +66,7 @@ module type S = sig
val pp : Buffer.t -> t -> unit val pp : Buffer.t -> t -> unit
val print : Format.formatter -> t -> unit val print : Format.formatter -> t -> unit
(** Print the string within quotes *)
end end
(** {2 Strings} *) (** {2 Strings} *)
@ -380,4 +381,9 @@ module Sub : sig
Sub.make "abcde" 1 3 |> Sub.copy = "bcd" Sub.make "abcde" 1 3 |> Sub.copy = "bcd"
Sub.full "abcde" |> Sub.copy = "abcde" Sub.full "abcde" |> Sub.copy = "abcde"
*) *)
(*$T
let sub = Sub.make " abc " 1 ~len:3 in \
"\"abc\"" = (CCFormat.to_string Sub.print sub)
*)
end end