| Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 1 | Upstream-Status: Inappropriate [opensuse patch] |
| 2 | |
| 3 | Signed-Off-by: Nitin A Kamble <nitin.a.kamble@intel.com> |
| 4 | |
| 5 | See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10096 |
| 6 | why this test is turned off. |
| 7 | Index: guile-2.0.3/test-suite/tests/gc.test |
| 8 | =================================================================== |
| 9 | --- guile-2.0.3.orig/test-suite/tests/gc.test 2011-10-15 09:34:40.000000000 -0700 |
| 10 | +++ guile-2.0.3/test-suite/tests/gc.test 2012-01-13 21:52:10.282540355 -0800 |
| 11 | @@ -65,23 +65,23 @@ |
| 12 | foo))) |
| 13 | |
| 14 | |
| 15 | -(with-test-prefix "gc" |
| 16 | - (pass-if "Unused modules are removed" |
| 17 | - (let* ((guard (make-guardian)) |
| 18 | - (total 1000)) |
| 19 | - |
| 20 | - (for-each (lambda (x) (guard (make-module))) (iota total)) |
| 21 | +;;(with-test-prefix "gc" |
| 22 | +;; (pass-if "Unused modules are removed" |
| 23 | +;; (let* ((guard (make-guardian)) |
| 24 | +;; (total 1000)) |
| 25 | +;; |
| 26 | +;; (for-each (lambda (x) (guard (make-module))) (iota total)) |
| 27 | |
| 28 | ;; Avoid false references to the modules on the stack. |
| 29 | - (stack-cleanup 20) |
| 30 | +;; (stack-cleanup 20) |
| 31 | |
| 32 | - (gc) |
| 33 | - (gc) ;; twice: have to kill the weak vectors. |
| 34 | - (gc) ;; thrice: because the test doesn't succeed with only |
| 35 | +;; (gc) |
| 36 | +;; (gc) ;; twice: have to kill the weak vectors. |
| 37 | +;; (gc) ;; thrice: because the test doesn't succeed with only |
| 38 | ;; one gc round. not sure why. |
| 39 | |
| 40 | - (= (let lp ((i 0)) |
| 41 | - (if (guard) |
| 42 | - (lp (1+ i)) |
| 43 | - i)) |
| 44 | - total)))) |
| 45 | +;; (= (let lp ((i 0)) |
| 46 | +;; (if (guard) |
| 47 | +;; (lp (1+ i)) |
| 48 | +;; i)) |
| 49 | +;; total)))) |