test: benchmark Header.mem

http/bench/bench.ml

@@ -0,0 +1,26 @@
+module Command = Core.Command
+module Staged = Core.Staged
+open Core_bench
+
+let header_mem =
+  let variations =
+    [
+      [ ("foo", "bar") ];
+      [ ("transfer-encoding", "bar") ];
+      [ ("traNsfer-eNcoding", "bar") ];
+      [ ("traNsfer eNcoding", "bar") ];
+    ]
+  in
+  List.mapi
+    (fun i header ->
+      Bench.Test.create
+        ~name:("Header.mem - " ^ string_of_int i)
+        (fun () ->
+          let key = "transfer-encoding" in
+          let header = Http.Header.of_list header in
+          Staged.stage @@ fun () ->
+          let (_ : bool) = Http.Header.mem header key in
+          ()))
+    variations
+
+let () = Command.run @@ Bench.make_command header_mem

http/bench/dune

@@ -0,0 +1,3 @@
+(executable
+ (name bench)
+ (libraries http core core_bench))