simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

try to fix CI

Browse source
This commit is contained in:
Simon Cruanes 2023-11-15 22:51:36 -05:00
parent 63c99cf2ba
commit 90e44a59a9
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 22 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
iter.opam
View file

@ -17,7 +17,6 @@ depends: [
"ounit2" {with-test} "ounit2" {with-test}
"mdx" {with-test & >= "1.3" } "mdx" {with-test & >= "1.3" }
"odoc" {with-doc} "odoc" {with-doc}
"containers" {with-test}
] ]
tags: [ "iter" "iterator" "iter" "fold" ] tags: [ "iter" "iterator" "iter" "fold" ]
homepage: "https://github.com/c-cube/iter/" homepage: "https://github.com/c-cube/iter/"

2
tests/unit/dune
View file

@ -1,4 +1,4 @@
(tests (tests
(names t_iter) (names t_iter)
(libraries iter qcheck-core qcheck-core.runner ounit2 containers)) (libraries iter qcheck-core qcheck-core.runner ounit2))

31
tests/unit/t_iter.ml
View file

@ -237,21 +237,30 @@ let () =
OUnit.assert_equal 2 n; OUnit.assert_equal 2 n;
() ()
let () = let list_equal eq l1 l2 =
OUnit.assert_equal List.length l1 = List.length l2 && List.for_all2 eq l1 l2
~cmp:(CCList.equal Int.equal)
(1 -- 10
|> map_while (fun x -> if x = 7 then `Return (x + 1) else `Yield (x - 1))
|> to_list)
[0; 1; 2; 3; 4; 5; 8]
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
`Return (x + 1)
else
`Yield (x - 1))
|> to_list) |> to_list)
[0; 1; 2; 3; 4; 5] [ 0; 1; 2; 3; 4; 5; 8 ]
let () =
OUnit.assert_equal ~cmp:(list_equal Int.equal)
(1 -- 10
|> map_while (fun x ->
if x = 7 then
`Stop
else
`Yield (x - 1))
|> to_list)
[ 0; 1; 2; 3; 4; 5 ]
let () = 1 -- 5 |> drop 2 |> to_list |> OUnit.assert_equal [ 3; 4; 5 ] let () = 1 -- 5 |> drop 2 |> to_list |> OUnit.assert_equal [ 3; 4; 5 ]
let () = 1 -- 5 |> rev |> to_list |> OUnit.assert_equal [ 5; 4; 3; 2; 1 ] let () = 1 -- 5 |> rev |> to_list |> OUnit.assert_equal [ 5; 4; 3; 2; 1 ]