1 files changed, 14 insertions, 6 deletions
diff --git a/tests/fragmentation/tfragment_gc.nim b/tests/fragmentation/tfragment_gc.nim
index 41f86136c..42f2f1cf6 100644
--- a/tests/fragmentation/tfragment_gc.nim
+++ b/tests/fragmentation/tfragment_gc.nim
@@ -1,16 +1,24 @@
-
-
-
-#include system/ansi_c
+discard """
+  output: '''occupied ok: true
+total ok: true'''
+"""
 
 import strutils, data
 
 proc main =
   var m = 0
-  for i in 0..1000_000:
+  # Since the GC test is slower than the alloc test, we only iterate 100_000 times here:
+  for i in 0..100_000:
     let size = sizes[i mod sizes.len]
     let p = newString(size)
  #   c_fprintf(stdout, "iteration: %ld size: %ld\n", i, size)
 
 main()
-echo formatSize getOccupiedMem(), " / ", formatSize getTotalMem()
+
+let occ = getOccupiedMem()
+let total = getTotalMem()
+
+# Concrete values on Win64: 58.152MiB / 188.285MiB
+
+echo "occupied ok: ", occ < 60 * 1024 * 1024
+echo "total ok: ", total < 200 * 1024 * 1024