blob: 06c849432b1d6674a412897f1abb18c72542e859 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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 97eeb19..58e4936 100644
--- a/test-suite/tests/gc.test
+++ b/test-suite/tests/gc.test
@@ -80,11 +80,12 @@
(gc) ;; thrice: because the test doesn't succeed with only
;; one gc round. not sure why.
- (= (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
|
