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

test: sanity test for flat_map

Browse source
This commit is contained in:
Simon Cruanes 2023-12-15 22:36:21 -05:00
parent 8b53966dff
commit 7436727942
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tests/core/t_list.ml
View file

@ -124,6 +124,21 @@ eq
fold_flat_map (fun acc x -> acc + x, [ pf "%d" x; pf "a%d" x ]) 0 [ 1; 2; 3 ]) fold_flat_map (fun acc x -> acc + x, [ pf "%d" x; pf "a%d" x ]) 0 [ 1; 2; 3 ])
;; ;;
t @@ fun () ->
let r = Atomic.make 0 in
let f x =
let n = Atomic.fetch_and_add r 1 in
[ n, x ]
in
let l = CCList.flat_map f [ "a"; "b"; "c" ] in
assert_equal
~printer:Q.Print.(list @@ pair int string)
[ 0, "a"; 1, "b"; 2, "c" ]
l;
true
;;
q q
Q.(list int) Q.(list int)
(fun l -> (fun l ->