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