blob: 43238a7d2edd44b2adb5c94125e281f0be0542df (
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
39
|
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
|
