simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix test

Browse source
This commit is contained in:
Simon Cruanes 2023-11-19 22:25:17 -05:00
parent 8c224e42fd
commit 1b3ddb7adf
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/core/t_list.ml
View file

@ -768,10 +768,10 @@ q
;; ;;
t @@ fun () -> take_drop_while (fun _ -> true) [] = ([], []);; 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 () -> 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 ]);; eq ~printer:Q.Print.(option (list int)) (Some [ 2; 3 ]) (tail_opt [ 1; 2; 3 ]);;

1
tests/data/t_misc.ml
View file

@ -37,7 +37,6 @@ module Mixset = struct
end end
module Mixtbl = struct module Mixtbl = struct
open CCFun
open CCMixtbl;; open CCMixtbl;;
t @@ fun () -> t @@ fun () ->