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); 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 -> Q.(list_of_size Gen.(return 10_000) int) (fun l ->
(* put elements into a heap *) (* put elements into a heap *)
let h = H.of_seq H.empty (Sequence.of_list l) in let h = H.of_seq H.empty (Sequence.of_list l) in