Add libglade2 needed for virt-viewer
[fedora-mingw.git] / ocaml / 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