Supply Chain Integrity, Transparency, and Trust (IETF SCITT)
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+4
-4
+4
-4
bench/bench_vds.ml
+4
-4
bench/bench_vds.ml
···
33
33
vds)
34
34
in
35
35
let avg_ms = elapsed /. Float.of_int n *. 1000.0 in
36
-
Fmt.pr "%s: %d appends in %.3f s (avg %.3f ms/append, %.0f ops/s)\n%!"
37
-
label n elapsed avg_ms
36
+
Fmt.pr "%s: %d appends in %.3f s (avg %.3f ms/append, %.0f ops/s)\n%!" label n
37
+
elapsed avg_ms
38
38
(Float.of_int n /. elapsed)
39
39
40
40
let bench_batch ~label ~n ~batch_size ~create_vds =
···
53
53
done)
54
54
in
55
55
let total = batches * batch_size in
56
-
Fmt.pr "%s: %d entries in batches of %d: %.3f s (%.0f ops/s)\n%!" label
57
-
total batch_size elapsed
56
+
Fmt.pr "%s: %d entries in batches of %d: %.3f s (%.0f ops/s)\n%!" label total
57
+
batch_size elapsed
58
58
(Float.of_int total /. elapsed)
59
59
60
60
let () =