diff --git a/tests/core/t_list.ml b/tests/core/t_list.ml index 657e3aab..caff2050 100644 --- a/tests/core/t_list.ml +++ b/tests/core/t_list.ml @@ -768,10 +768,10 @@ q ;; t @@ fun () -> take_drop_while (fun _ -> true) [] = ([], []);; -t @@ fun () -> take_drop_while (fun _ -> true) (1 -- 10) = ([], 1 -- 10);; +t @@ fun () -> take_drop_while (fun _ -> true) (1 -- 10) = (1 -- 10, []);; t @@ fun () -> -take_drop_while (fun _ -> true) (1 -- 300_000) = ([], 1 -- 300_000) +take_drop_while (fun _ -> true) (1 -- 300_000) = (1 -- 300_000, []) ;; eq ~printer:Q.Print.(option (list int)) (Some [ 2; 3 ]) (tail_opt [ 1; 2; 3 ]);; diff --git a/tests/data/t_misc.ml b/tests/data/t_misc.ml index 5f7baa7c..af2811ac 100644 --- a/tests/data/t_misc.ml +++ b/tests/data/t_misc.ml @@ -37,7 +37,6 @@ module Mixset = struct end module Mixtbl = struct - open CCFun open CCMixtbl;; t @@ fun () ->