gazagnaire.org
Terminal styling and layout widgets
448 B
12 lines
1(* Minimal test - compile and run directly: ocamlfind ocamlopt -package unix
2 -linkpkg -o /tmp/test_progress minimal_progress.ml /tmp/test_progress *)
3
4let () =
5 Fmt.pr "Terminal test - should update in place:@.";
6 for i = 1 to 10 do
7 Fmt.pr "\r[%2d/10] Display...%!" i;
8 Unix.sleepf 0.3
9 done;
10 Fmt.pr "\n";
11 Fmt.pr "Done - if you saw 10 separate lines, \\r is broken@.";
12 Fmt.pr "If you saw updates in place, \\r works correctly@."