1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(* This file is part of Markup.ml, released under the MIT license. See
LICENSE.md for details, or visit https://github.com/aantron/markup.ml. *)
let measure runs library source format f =
let name = Printf.sprintf "%s: %s (%s)" library source format in
let rec run = function
| 0 -> ()
| n -> f (); run (n - 1)
in
let start_time = Unix.gettimeofday () in
run runs;
let duration = (Unix.gettimeofday ()) -. start_time in
let average = duration /. (float_of_int runs) *. 1000000. in
Printf.printf " %s: %.0f us\n" name average
let google_page = "test/pages/google"
let xml_spec = "test/pages/xml_spec"
|
