git.annexia.org
/
fedora-mingw.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
88ea48c3f4b6f7a120b42fe718c3de2fcecf47b7
[fedora-mingw.git]
/
test_buffer.ml
1
(* Test the Buffer module. *)
2
3
let () =
4
let buf = Buffer.create 100 in
5
for i = 0 to 10 do
6
Buffer.add_char buf 'a';
7
Buffer.add_string buf "b";
8
Buffer.add_char buf 'c'
9
done;
10
let str = Buffer.contents buf in
11
Printf.printf "contents of buffer = %S\n%!" str