Small improvements to the emitbig test.

Author: Drup

test/emitbig.ml

@@ -21,19 +21,25 @@ let emit_page_pp indent page =
   Format.fprintf fmt "%a@." (Html.pp ~indent ()) page;
   close_out file_handle
 
+let run_n ~n f x = 
+  let r = ref 0. in
+  for _ = 1 to n do
+    let t = Unix.gettimeofday () in
+    f x ;
+    let tpp = Unix.gettimeofday () -. t in
+    r := !r +. tpp ;
+  done ;
+  !r /. float n
+
 let () =
   let p = Html.(
     html (head (title (pcdata "fibo")) []) (body [unfold 22])
   ) in
-  let indent = Array.length Sys.argv > 1 && Sys.argv.(1) = "indent" in
-  let time_pp = ref 0. in
   let n = 10 in
-  for _ = 1 to n do
-    let t = Unix.gettimeofday () in
-    emit_page_pp indent p ;
-    let tpp = Unix.gettimeofday () -. t in
-    time_pp := !time_pp +. tpp ;
-  done ;
-  Printf.printf
-    "Time:  %f\n%!"
-    (!time_pp /. float n)
+  let time_pp = run_n ~n (emit_page_pp false) p in
+  let time_indent_pp = run_n ~n (emit_page_pp true) p in
+  
+  Format.printf
+    "Noindent: %[email protected]: %f"
+    time_pp
+    time_indent_pp