try to fix CI

Author: c-cube

iter.opam

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

tests/unit/dune

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

tests/unit/t_iter.ml

@@ -237,21 +237,30 @@ let () =
   OUnit.assert_equal 2 n;
   ()
 
+let list_equal eq l1 l2 =
+  List.length l1 = List.length l2 && List.for_all2 eq l1 l2
+
 let () =
-  OUnit.assert_equal
-    ~cmp:(CCList.equal Int.equal)
+  OUnit.assert_equal ~cmp:(list_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]
+    |> 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 () =
-  OUnit.assert_equal
-    ~cmp:(CCList.equal Int.equal)
+  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]
+    |> 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 |> rev |> to_list |> OUnit.assert_equal [ 5; 4; 3; 2; 1 ]