This commit is contained in:
Simon Cruanes 2015-09-17 23:11:45 +02:00
parent eee89aa7a4
commit 650d2873c3

View file

@ -75,7 +75,7 @@ end
OUnit.assert_raises H.Empty (fun () -> H.take_exn h);
*)
(*$QR
(*$QR & ~count:30
Q.(list_of_size Gen.(return 10_000) int) (fun l ->
(* put elements into a heap *)
let h = H.of_seq H.empty (Sequence.of_list l) in