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

Adds tests for split function.

Browse source
This commit is contained in:
Bikal Gurung 2017-06-28 23:27:06 +01:00
parent 973062158a
commit 7a9a741bb0
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/core/CCList.ml
View file

@ -1393,3 +1393,18 @@ let split l =
in in
direct direct_depth_default_ l direct direct_depth_default_ l
(*$Q
(Q.(list (pair int string))) (fun l -> \
let (l1, l2) = split l in \
List.length l1 = List.length l \
&& List.length l2 = List.length l)
(Q.(list (pair string int))) (fun l -> \
let l = ("hello", 10) :: l in \
let (l1, l2) = split l in \
let i = Random.int @@ List.length l in \
let l1_x = List.nth l1 i in \
let l2_y = List.nth l2 i in \
let (x,y) = List.nth l i in \
l1_x = x && l2_y = y)
*)