branch-free-equal: Don't use List.init in tests

Was not introduced until 4.06.
inhabitedtype · May 19, 2020 · 54fdeb1 · 54fdeb1
1 parent dbd3d75
commit 54fdeb1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib_test/test_headers.ml b/lib_test/test_headers.ml
@@ -1,4 +1,5 @@
 open Httpaf
+module Array = ArrayLabels
 module List = ListLabels
 
 let check msg ~expect actual =
@@ -43,7 +44,10 @@ let test_remove () =
 
 let test_ci_equal () =
   let string_of_char x = String.init 1 (fun _ -> x) in
-  let ascii = List.init ~len:(0xff + 1) ~f:Char.chr in
+  let ascii =
+    Array.init (0xff + 1) ~f:Char.chr
+    |> Array.to_list
+  in
   let ascii_pairs =
     List.map ascii ~f:(fun x ->
       List.map ascii ~f:(fun y -> x, y))