diff options
Diffstat (limited to 'meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch')
-rw-r--r-- | meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch b/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch new file mode 100644 index 0000000000..ed56694a98 --- /dev/null +++ b/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch | |||
@@ -0,0 +1,48 @@ | |||
1 | |||
2 | Upstream-Status: Inappropriate [opensuse patch] | ||
3 | |||
4 | See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10096 | ||
5 | why this test is turned off. | ||
6 | Index: guile-2.0.3/test-suite/tests/gc.test | ||
7 | =================================================================== | ||
8 | --- guile-2.0.3.orig/test-suite/tests/gc.test 2011-10-15 09:34:40.000000000 -0700 | ||
9 | +++ guile-2.0.3/test-suite/tests/gc.test 2012-01-13 21:52:10.282540355 -0800 | ||
10 | @@ -65,23 +65,23 @@ | ||
11 | foo))) | ||
12 | |||
13 | |||
14 | -(with-test-prefix "gc" | ||
15 | - (pass-if "Unused modules are removed" | ||
16 | - (let* ((guard (make-guardian)) | ||
17 | - (total 1000)) | ||
18 | - | ||
19 | - (for-each (lambda (x) (guard (make-module))) (iota total)) | ||
20 | +;;(with-test-prefix "gc" | ||
21 | +;; (pass-if "Unused modules are removed" | ||
22 | +;; (let* ((guard (make-guardian)) | ||
23 | +;; (total 1000)) | ||
24 | +;; | ||
25 | +;; (for-each (lambda (x) (guard (make-module))) (iota total)) | ||
26 | |||
27 | ;; Avoid false references to the modules on the stack. | ||
28 | - (stack-cleanup 20) | ||
29 | +;; (stack-cleanup 20) | ||
30 | |||
31 | - (gc) | ||
32 | - (gc) ;; twice: have to kill the weak vectors. | ||
33 | - (gc) ;; thrice: because the test doesn't succeed with only | ||
34 | +;; (gc) | ||
35 | +;; (gc) ;; twice: have to kill the weak vectors. | ||
36 | +;; (gc) ;; thrice: because the test doesn't succeed with only | ||
37 | ;; one gc round. not sure why. | ||
38 | |||
39 | - (= (let lp ((i 0)) | ||
40 | - (if (guard) | ||
41 | - (lp (1+ i)) | ||
42 | - i)) | ||
43 | - total)))) | ||
44 | +;; (= (let lp ((i 0)) | ||
45 | +;; (if (guard) | ||
46 | +;; (lp (1+ i)) | ||
47 | +;; i)) | ||
48 | +;; total)))) | ||