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

format

Browse source
This commit is contained in:
Simon Cruanes 2024-05-13 22:06:31 -04:00
parent 53b3f75d64
commit 2e276002c6
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
tests/core/t_list.ml
View file

@ -122,25 +122,25 @@ eq
(6, [ "1"; "a1"; "2"; "a2"; "3"; "a3" ])
(let pf = Printf.sprintf in
fold_flat_map (fun acc x -> acc + x, [ pf "%d" x; pf "a%d" x ]) 0 [ 1; 2; 3 ])
;;
[@@@ifge 4.12]
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
;;
let () =
t @@ fun () ->
let r = Atomic.make 0 in
let f x =
let n = Atomic.fetch_and_add r 1 in
[ n, x ]
in
[@@@endif]
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
[@@@endif];;
q
Q.(list int)
@ -219,11 +219,9 @@ t @@ fun () ->
flat_map (fun x -> [ x + 1; x * 2 ]) [ 10; 100 ] = [ 11; 20; 101; 200 ]
;;
t @@ fun () -> List.length (flat_map (fun x -> [ x ]) (1 -- 300_000)) = 300_000
;;
t @@ fun () ->
List.length (flat_map (fun _ -> 1 -- 300_000) (1 -- 2)) = 600_000
t @@ fun () -> List.length (flat_map (fun _ -> 1 -- 300_000) (1 -- 2)) = 600_000
;;
eq [ 1; 2; 2; 3; 3; 3 ]