Don't use Fun.id in tests

zshipko · zshipko · commit 87f9aa0c746d · 2022-08-02T14:38:26.000-07:00
diff --git a/test/src/types.ml b/test/src/types.ml
@@ -95,7 +95,7 @@ let%test "abstract pointer" = Util.check_leaks (fun () ->
 )
 
 let%test "seq sum" = Util.check_leaks (fun () ->
-  let l = List.init 100 Fun.id in
+  let l = List.init 100 (fun x -> x) in
   let s = List.to_seq l in
   let sum = seq_sum s in
   let sum' = List.fold_left ( + ) 0 l in

Original file line number	Diff line number	Diff line change
`@@ -95,7 +95,7 @@ let%test "abstract pointer" = Util.check_leaks (fun () ->`
`95`	`95`	`)`
`96`	`96`
`97`	`97`	`let%test "seq sum" = Util.check_leaks (fun () ->`
`98`		`- let l = List.init 100 Fun.id in`
	`98`	`+ let l = List.init 100 (fun x -> x) in`
`99`	`99`	`let s = List.to_seq l in`
`100`	`100`	`let sum = seq_sum s in`
`101`	`101`	`let sum' = List.fold_left ( + ) 0 l in`