Source file defaults.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
(** A module internal to [Core_bench]. Please look at {!Bench}.

   Many of the default settings are here. *)
open Core


(* default columns for command *)
let columns_as_string = [
  "time";
  "alloc";
  "percentage";
]
let command_columns = List.map ~f:Bench_command_column.of_string columns_as_string

(* default columns *)
let columns = [ `Name ]

(* how to measure *)
let geometric_scale   = 1.01
let stabilize_gc_between_runs = false
let no_compactions = false

(* how long to measure *)
let quota = Quota.Span (Time.Span.of_int_sec 10)

(* saving generated data *)
let save_sample_data = false

(* width of the output table *)
let limit_width_to = 200

(* Fork each benchmark and run in separate process *)
let fork_each_benchmark = false

(* Bootstrapping iterations *)
let bootstrap_trials = 3000
let boostrap_reduced_trials = 300

(* Predictors to use for mv-regression *)
let predictors = [ `Runs ]
(* The default input-string is empty, since r is assumed and not exposed to user *)
let predictors_string = ""

(* default display *)
let display_as_string = "short"
let string_to_display =
  let module Display = Ascii_table.Display in
  function
  | "short"  -> Display.short_box
  | "tall"   -> Display.tall_box
  | "line"   -> Display.line
  | "blank"  -> Display.blank
  | "column" -> Display.column_titles
  | s -> failwithf "Invalid display name: %s" s ()

let display = string_to_display display_as_string