From cfa1c0201330481f072d579f1af31bed300013af Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 5 Apr 2008 02:08:45 -0500 Subject: [PATCH] Add test case for GC --- core/memory/memory-tests.factor | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/core/memory/memory-tests.factor b/core/memory/memory-tests.factor index 0c46e307df..0a021d1978 100755 --- a/core/memory/memory-tests.factor +++ b/core/memory/memory-tests.factor @@ -1,8 +1,17 @@ USING: generic kernel kernel.private math memory prettyprint sequences tools.test words namespaces layouts classes -classes.builtin ; +classes.builtin arrays quotations ; IN: memory.tests +! Code GC wasn't kicking in when needed +: leak-step 800000 f 1quotation call drop ; + +: leak-loop 100 [ leak-step ] times ; + +[ ] [ leak-step leak-step leak-step data-gc ] unit-test + +[ ] [ leak-loop ] unit-test + TUPLE: testing x y z ; [ save-image-and-exit ] must-fail