import-layers/yocto-poky/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch

Upstream-Status: Inappropriate [debian patch]

Signed-Off-by: Nitin A Kamble <nitin.a.kamble@intel.com>

From e52bfcdbaca5dce498678d8f512381e3e39a4066 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Sun, 18 Mar 2012 11:40:55 -0500
Subject: Mark "Unused modules are removed" gc test as unresolved.

As per discussion with upstream, mark this test as unresolved since it
may produce false negatives, depending on the behavior/timing of the
garbage collector.
---
 test-suite/tests/gc.test |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test
index a969752..8c8e13e 100644
--- a/test-suite/tests/gc.test
+++ b/test-suite/tests/gc.test
@@ -84,11 +84,13 @@
       ;; one gc round. not sure why.
 
       (maybe-gc-flakiness
-       (= (let lp ((i 0))
-            (if (guard)
-                (lp (1+ i))
-                i))
-          total))))
+       (or (= (let lp ((i 0))
+                (if (guard)
+                    (lp (1+ i))
+                    i))
+              total)
+           (throw 'unresolved)))))
+
 
   (pass-if "Lexical vars are collectable"
     (let ((l (compile