This commit is contained in:
parent
aa2ff7b2f0
commit
2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
11
unikernel/duniverse/fmt/test/styled_perf_bug.ml
Normal file
11
unikernel/duniverse/fmt/test/styled_perf_bug.ml
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
let n = 10000
|
||||
|
||||
let () =
|
||||
while true do
|
||||
let t0 = Unix.gettimeofday () in
|
||||
for _i = 1 to n do
|
||||
ignore @@ Fmt.str "Hello %a" Fmt.string "world"
|
||||
done;
|
||||
let t1 = Unix.gettimeofday () in
|
||||
Printf.printf "Formatted %.0f messages/second\n%!" (float n /. (t1 -. t0))
|
||||
done
|
||||
Loading…
Add table
Add a link
Reference in a new issue