From 1a5a09b83504e2b39de29ef13a92d5ca57c71906 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Tue, 12 Dec 2017 19:35:40 +0100
Subject: [PATCH] make tfragment_gc more robust

---
 tests/fragmentation/tfragment_gc.nim | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/fragmentation/tfragment_gc.nim b/tests/fragmentation/tfragment_gc.nim
index 6e0ec37cea..1781f66105 100644
--- a/tests/fragmentation/tfragment_gc.nim
+++ b/tests/fragmentation/tfragment_gc.nim
@@ -20,7 +20,10 @@ let total = getTotalMem()
 
 # Concrete values on Win64: 58.152MiB / 188.285MiB
 
-echo "occupied ok: ", occ < 60 * 1024 * 1024
+let occupiedOk = occ < 64 * 1024 * 1024
+if not occupiedOk:
+  echo "occupied ", formatSize(occ)
+echo "occupied ok: ", occupiedOk
 let totalOk = total < 210 * 1024 * 1024
 if not totalOk:
   echo "total peak memory ", formatSize(total)