forked from pool/guile
46 lines
1.4 KiB
Diff
46 lines
1.4 KiB
Diff
See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10096
|
|
why this test is turned off.
|
|
Index: guile-2.0.3/test-suite/tests/gc.test
|
|
===================================================================
|
|
--- guile-2.0.3.orig/test-suite/tests/gc.test
|
|
+++ guile-2.0.3/test-suite/tests/gc.test
|
|
@@ -65,23 +65,23 @@
|
|
foo)))
|
|
|
|
|
|
-(with-test-prefix "gc"
|
|
- (pass-if "Unused modules are removed"
|
|
- (let* ((guard (make-guardian))
|
|
- (total 1000))
|
|
-
|
|
- (for-each (lambda (x) (guard (make-module))) (iota total))
|
|
+;;(with-test-prefix "gc"
|
|
+;; (pass-if "Unused modules are removed"
|
|
+;; (let* ((guard (make-guardian))
|
|
+;; (total 1000))
|
|
+;;
|
|
+;; (for-each (lambda (x) (guard (make-module))) (iota total))
|
|
|
|
;; Avoid false references to the modules on the stack.
|
|
- (stack-cleanup 20)
|
|
+;; (stack-cleanup 20)
|
|
|
|
- (gc)
|
|
- (gc) ;; twice: have to kill the weak vectors.
|
|
- (gc) ;; thrice: because the test doesn't succeed with only
|
|
+;; (gc)
|
|
+;; (gc) ;; twice: have to kill the weak vectors.
|
|
+;; (gc) ;; thrice: because the test doesn't succeed with only
|
|
;; one gc round. not sure why.
|
|
|
|
- (= (let lp ((i 0))
|
|
- (if (guard)
|
|
- (lp (1+ i))
|
|
- i))
|
|
- total))))
|
|
+;; (= (let lp ((i 0))
|
|
+;; (if (guard)
|
|
+;; (lp (1+ i))
|
|
+;; i))
|
|
+;; total))))
|