mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-07 03:35:30 -05:00
fix test
This commit is contained in:
parent
8dc4d5a706
commit
884d354986
1 changed files with 3 additions and 0 deletions
|
|
@ -124,6 +124,7 @@ 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 ])
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
[@@@ifge 4.12]
|
||||||
t @@ fun () ->
|
t @@ fun () ->
|
||||||
let r = Atomic.make 0 in
|
let r = Atomic.make 0 in
|
||||||
let f x =
|
let f x =
|
||||||
|
|
@ -139,6 +140,8 @@ assert_equal
|
||||||
true
|
true
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
[@@@endif]
|
||||||
|
|
||||||
q
|
q
|
||||||
Q.(list int)
|
Q.(list int)
|
||||||
(fun l ->
|
(fun l ->
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue