mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
13 lines
317 B
OCaml
13 lines
317 B
OCaml
|
|
(** Some helpers for tests *)
|
|
|
|
let print_int_list l =
|
|
let b = Buffer.create 20 in
|
|
CCList.pp CCInt.pp b l;
|
|
Buffer.contents b
|
|
|
|
let print_int_int_list l =
|
|
let printer fmt (i,j) = Format.fprintf fmt "%d, %d" i j in
|
|
let b = Buffer.create 20 in
|
|
CCList.pp (CCPair.pp CCInt.pp CCInt.pp) b l;
|
|
Buffer.contents b
|