small fixes

This commit is contained in:
Simon Cruanes 2017-12-15 12:49:56 +01:00
parent eace3581f1
commit 2417b8e5fd
2 changed files with 2 additions and 2 deletions

2
_tags
View file

@ -27,7 +27,7 @@
<bench/*.ml{,i}>: pkg_benchmark
<bench/*.ml{,i}>: use_sequence
# OASIS_STOP
true: bin_annot, color(always)
true: safe_string, bin_annot, color(always)
<**/*.ml>: warn(+a-4-44-48@8)
<src/bigarray/*.ml>: warn(-33)
true: mark_tag_used

View file

@ -1107,7 +1107,7 @@ let to_buffer seq buf =
(*$R
let b = Buffer.create 4 in
"hello world"
|> of_str |> rev |> map Char.uppercase
|> of_str |> rev |> map Char.uppercase_ascii
|> (fun seq -> to_buffer seq b);
OUnit.assert_equal "DLROW OLLEH" (Buffer.contents b);
*)