From 63b689d7cdbe49f930c65b6baaef3ee4737368ac Mon Sep 17 00:00:00 2001 From: Chris Hogan Date: Wed, 22 Aug 2018 08:39:50 -0500 Subject: [PATCH] Run garbage collection in test for guile >= 2.0.12 --- Examples/test-suite/schemerunme/reference_global_vars.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Examples/test-suite/schemerunme/reference_global_vars.scm b/Examples/test-suite/schemerunme/reference_global_vars.scm index 4b3370cfc..29d0904b8 100644 --- a/Examples/test-suite/schemerunme/reference_global_vars.scm +++ b/Examples/test-suite/schemerunme/reference_global_vars.scm @@ -56,4 +56,12 @@ (if (!= (TestClass-num-get (value-TestClass (var-TestClass))) 20) (begin (display "Runtime test 13 failed.\n") (exit 1))) +; Test garbage collection on guile >= 2.0.12 +(if (or (and (string=? (major-version) "2") + (string=? (minor-version) "0") + (string>=? (micro-version) "12")) + (and (string>=? (major-version) "2") + (string>=? (minor-version) "1"))) + (gc)) + (exit 0)