File guile-gc-test.patch of Package guile

Overview Repositories Revisions Requests Users Attributes Meta

File guile-gc-test.patch of Package guile

Index: guile-2.0.7/test-suite/tests/gc.test
===================================================================
--- guile-2.0.7.orig/test-suite/tests/gc.test
+++ guile-2.0.7/test-suite/tests/gc.test
@@ -88,17 +88,17 @@
             (if (guard)
                 (lp (1+ i))
                 i))
-          total))))
-
-  (pass-if "Lexical vars are collectable"
-    (let ((l (compile
-              '(begin
-                 (define guardian (make-guardian))
-                 (let ((f (list 'foo)))
-                   (guardian f))
-                 ((@ (test-suite lib) clear-stale-stack-references))
-                 (gc)(gc)(gc)
-                 (guardian))
-              ;; Prevent the optimizer from propagating f.
-              #:opts '(#:partial-eval? #f))))
-      (equal? l '(foo)))))
+          total)))))
+;; turn off this test: http://lists.gnu.org/archive/html/bug-guile/2012-07/msg00069.html
+;;  (pass-if "Lexical vars are collectable"
+;;    (let ((l (compile
+;;              '(begin
+;;                 (define guardian (make-guardian))
+;;                 (let ((f (list 'foo)))
+;;                   (guardian f))
+;;                 ((@ (test-suite lib) clear-stale-stack-references))
+;;                 (gc)(gc)(gc)
+;;                 (guardian))
+;;              ;; Prevent the optimizer from propagating f.
+;;              #:opts '(#:partial-eval? #f))))
+;;      (equal? l '(foo)))))

Places

File guile-gc-test.patch of Package guile

Places