From 7e30847ff5e71db5d68c579cc186495cf6407c5f Mon Sep 17 00:00:00 2001
From: Kate <kit-ty-kate@outlook.com>
Date: Fri, 5 Apr 2024 17:26:55 +0100
Subject: [PATCH] Benchmark opam install --deps-only of an already installed
 package

---
 master_changes.md    |  1 +
 tests/bench/bench.ml | 13 +++++++++++++
 2 files changed, 14 insertions(+)

diff --git a/master_changes.md b/master_changes.md
index 1ab70ae3e4a..da3efb366e1 100644
--- a/master_changes.md
+++ b/master_changes.md
@@ -95,6 +95,7 @@ users)
 ## Test
 
 ## Benchmarks
+  * Benchmark opam install --deps-only of an already installed package [#5909 @kit-ty-kate]
 
 ## Reftests
 ### Tests
diff --git a/tests/bench/bench.ml b/tests/bench/bench.ml
index 83969583bda..ccabb450e72 100644
--- a/tests/bench/bench.ml
+++ b/tests/bench/bench.ml
@@ -34,6 +34,7 @@ let () =
     time_cmd ~exit:0 (fmt "%s install magic-trace -y --fake --sw two" bin)
   in
   let time_OpamSystem_read_10 =
+    (* NOTE: https://github.com/ocaml/opam/pull/5896 *)
     let time_OpamSystem_read () =
       let ic = Stdlib.open_in_bin "/home/opam/all-opam-files" in
       let before = Unix.gettimeofday () in
@@ -48,6 +49,12 @@ let () =
     let l = List.init n (fun _ -> time_OpamSystem_read ()) in
     List.fold_left (+.) 0.0 l /. float_of_int n
   in
+  let time_deps_only_installed_pkg =
+    (* NOTE: https://github.com/ocaml/opam/pull/5908 *)
+    launch (fmt "%s switch create three --fake ocaml-base-compiler.4.14.0" bin);
+    launch (fmt "%s install -y --fake core.v0.15.0" bin);
+    time_cmd ~exit:0 (fmt "%s install --show --deps-only core.v0.15.0" bin)
+  in
   let json = fmt {|{
   "results": [
     {
@@ -72,6 +79,11 @@ let () =
           "name": "OpamSystem.read amortised over 10 runs",
           "value": %f,
           "units": "secs"
+        },
+        {
+          "name": "Deps-only install of an already installed package",
+          "value": %f,
+          "units": "secs"
         }
       ]
     },
@@ -91,6 +103,7 @@ let () =
       time_install_cmd
       time_install_cmd_w_invariant
       time_OpamSystem_read_10
+      time_deps_only_installed_pkg
       bin_size
   in
   print_endline json