Fix benchmark for subtraction. (#92)

In particular, the timings for "small, overflow" were nonsensical, since they did not exercise any overflow.
ocaml · Nov 12, 2020 · 6028d67 · 6028d67
1 parent c379dfe
commit 6028d67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/timings.ml b/tests/timings.ml
@@ -26,7 +26,7 @@ let add (x, y) =
 
 let sub (x, y) =
  for i = 1 to 50_000_000 do
- ignore (Sys.opaque_identity (Z.add x y))
+ ignore (Sys.opaque_identity (Z.sub x y))
  done;
  50_000_000