debian/patches/0007-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch

   1 From 6e4faf6b47d5385ea26a62791d96d352be4a1bbb Mon Sep 17 00:00:00 2001
   2 From: Rob Browning <rlb@defaultvalue.org>
   3 Date: Tue, 6 Mar 2012 21:05:04 -0600
   4 Subject: Mark "Unused modules are removed" gc test as unresolved.
   5
   6 As per discussion with upstream, mark this test as unresolved since it
   7 may produce false negatives, depending on the behavior/timing of the
   8 garbage collector.
   9
  10 Closes: #653939
  11 ---
  12  test-suite/tests/gc.test | 4 +++-
  13  1 file changed, 3 insertions(+), 1 deletion(-)
  14
  15 diff --git a/guile18/test-suite/tests/gc.test b/guile18/test-suite/tests/gc.test
  16 index badf2b7..b0d7427 100644
  17 --- a/guile18/test-suite/tests/gc.test
  18 +++ b/guile18/test-suite/tests/gc.test
  19 @@ -76,5 +76,7 @@
  20
  21              (gc)
  22              (gc) ;; twice: have to kill the weak vectors.
  23 -            (= last-count (cdr (assoc "eval-closure" (gc-live-object-stats)))))
  24 +            (if (= last-count (cdr (assoc "eval-closure" (gc-live-object-stats))))
  25 +                 #t
  26 +                 (throw 'unresolved)))
  27            ))