add regression test for #75

This commit is contained in:
Simon Cruanes 2016-08-22 09:20:17 +02:00
parent 779376f2b1
commit a0b10101c7

View file

@ -450,6 +450,7 @@ module Split : sig
(*$T
Split.left ~by:" " "ab cde f g " = Some ("ab", "cde f g ")
Split.left ~by:"_" "abcde" = None
Split.left ~by:"bb" "abbc" = Some ("a", "c")
*)
val right : by:string -> string -> (string * string) option