simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

avoid using too recent a function in tests

Browse source
This commit is contained in:
Simon Cruanes 2017-12-24 17:25:59 +01:00
parent dbf977edaa
commit 8e7d2bf77e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Sequence.ml
View file

@ -1106,8 +1106,9 @@ let to_buffer seq buf =
(*$R
let b = Buffer.create 4 in
let upp = function 'a'..'z' as c -> Char.chr (Char.code c - Char.code 'a' + Char.code 'A') | c -> c in
"hello world"
|> of_str |> rev |> map Char.uppercase_ascii
|> of_str |> rev |> map upp
|> (fun seq -> to_buffer seq b);
OUnit.assert_equal "DLROW OLLEH" (Buffer.contents b);
*)