File: test_compact_full.ml

package info (click to toggle)
ocaml 5.4.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 44,372 kB
  • sloc: ml: 370,196; ansic: 52,820; sh: 27,396; asm: 5,462; makefile: 3,679; python: 974; awk: 278; javascript: 273; perl: 59; fortran: 21; cs: 9
file content (12 lines) | stat: -rw-r--r-- 525 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(* TEST
*)
let () =
  Gc.full_major (); (* do a major before compaction so there isn't any pending major
                  cycles when we do compaction. *)
  let heap_stats_before = Gc.quick_stat () in
  Gc.compact ();
  let heap_stats_after = Gc.quick_stat () in
  (* assert that we have done an additional three major collections *)
  assert (heap_stats_after.major_collections == heap_stats_before.major_collections+3);
  (* also a compaction! *)
  assert (heap_stats_after.compactions == heap_stats_before.compactions+1)