Update tests/unit/t_iter.ml

This commit is contained in:
Simon Cruanes 2023-11-15 22:11:56 -05:00 committed by GitHub
parent 200999d09e
commit 6f4c4bd9c2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -247,7 +247,7 @@ let () =
let () = let () =
OUnit.assert_equal OUnit.assert_equal
~cmp:(List.equal Int.equal) ~cmp:(CCList.equal Int.equal)
(1 -- 10 (1 -- 10
|> map_while (fun x -> if x = 7 then `Stop else `Yield (x - 1)) |> map_while (fun x -> if x = 7 then `Stop else `Yield (x - 1))
|> to_list) |> to_list)