mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
12 lines
227 B
OCaml
12 lines
227 B
OCaml
(** Test heaps *)
|
|
|
|
open OUnit
|
|
|
|
let test_empty () =
|
|
let h = Heap.empty ~lt:(fun x y -> x < y) in
|
|
OUnit.assert_bool "is_empty empty" (Heap.is_empty h)
|
|
|
|
let suite =
|
|
"test_heaps" >:::
|
|
[ "test_empty" >:: test_empty;
|
|
]
|