1 (* Test the Format module, which we suspect may not be working. *)
8 let buf = Buffer.create 100 in
9 let fmt = formatter_of_buffer buf in
12 Printf.printf "pp_max_boxes before open_box = %d\n"
13 (pp_get_max_boxes fmt ());
18 Printf.printf "pp_max_boxes before open_box = %d\n"
19 (pp_get_max_boxes fmt ());
21 pp_print_string fmt "This is a string";
23 pp_print_flush fmt ();
24 let str = Buffer.contents buf in
25 Printf.printf "contents of buffer = %S\n%!" str