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