tools.memory: check space-reclaimed against <= 0

diff --git a/basis/tools/memory/memory-tests.factor b/basis/tools/memory/memory-tests.factor
index 382cb29082c0a1a975aec65b8d355e362430d3bf..959d662153bdd6e803410e7f31edf3cbae0a30bf 100644 (file)
--- a/basis/tools/memory/memory-tests.factor
+++ b/basis/tools/memory/memory-tests.factor
@@ -12,7 +12,7 @@ tools.memory tools.memory.private tools.test tools.time vm ;
 ! Each gc-event must reclaim something. #659
 { f } [
     [ "resource:basis/tools/memory/memory.factor" run-file ] time
-    gc-events get [ space-reclaimed 0 < ] any?
+    gc-events get [ space-reclaimed 0 <= ] any?
 ] unit-test
 
 { t t t } [