ppx_unicode/test/test_ppx_unicode.ml

8 lines
217 B
OCaml
Raw Permalink Normal View History

2024-04-25 04:14:52 +00:00
let () =
let a = "å"[@uchar] in
2024-04-25 06:07:52 +00:00
let b = Buffer.create 16 in
Buffer.add_utf_8_uchar b a;
Buffer.add_utf_8_uchar b a;
let str = Buffer.to_bytes b |> String.of_bytes in
Printf.printf "meow meow: %s\n%!" str