diff options
Diffstat (limited to 'meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch')
-rw-r--r-- | meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch b/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch new file mode 100644 index 0000000000..06c849432b --- /dev/null +++ b/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch | |||
@@ -0,0 +1,38 @@ | |||
1 | Upstream-Status: Inappropriate [debian patch] | ||
2 | |||
3 | Signed-Off-by: Nitin A Kamble <nitin.a.kamble@intel.com> | ||
4 | |||
5 | From e52bfcdbaca5dce498678d8f512381e3e39a4066 Mon Sep 17 00:00:00 2001 | ||
6 | From: Rob Browning <rlb@defaultvalue.org> | ||
7 | Date: Sun, 18 Mar 2012 11:40:55 -0500 | ||
8 | Subject: Mark "Unused modules are removed" gc test as unresolved. | ||
9 | |||
10 | As per discussion with upstream, mark this test as unresolved since it | ||
11 | may produce false negatives, depending on the behavior/timing of the | ||
12 | garbage collector. | ||
13 | --- | ||
14 | test-suite/tests/gc.test | 11 ++++++----- | ||
15 | 1 files changed, 6 insertions(+), 5 deletions(-) | ||
16 | |||
17 | diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test | ||
18 | index 97eeb19..58e4936 100644 | ||
19 | --- a/test-suite/tests/gc.test | ||
20 | +++ b/test-suite/tests/gc.test | ||
21 | @@ -80,11 +80,12 @@ | ||
22 | (gc) ;; thrice: because the test doesn't succeed with only | ||
23 | ;; one gc round. not sure why. | ||
24 | |||
25 | - (= (let lp ((i 0)) | ||
26 | - (if (guard) | ||
27 | - (lp (1+ i)) | ||
28 | - i)) | ||
29 | - total))) | ||
30 | + (or (= (let lp ((i 0)) | ||
31 | + (if (guard) | ||
32 | + (lp (1+ i)) | ||
33 | + i)) | ||
34 | + total) | ||
35 | + (throw 'unresolved)))) | ||
36 | |||
37 | (pass-if "Lexical vars are collectable" | ||
38 | (let ((l (compile | ||