testsuite/tests/lib-format/pr6824.ml


1
2
3
4
5
6
7
8
9
10
11

(* TEST
 include testing;
*)

let f = Format.sprintf "[%i]";;
print_endline (f 1);;
print_endline (f 2);;

let f = Format.asprintf "[%i]";;
print_endline (f 1);;
print_endline (f 2);;