File: 0001-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch

package info (click to toggle)
guile-2.2 2.2.7%2B1-9
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 22,840 kB
  • sloc: ansic: 134,153; lisp: 86,182; sh: 4,472; makefile: 2,106; perl: 243; awk: 37; javascript: 9
file content (29 lines) | stat: -rw-r--r-- 1,024 bytes parent folder | download | duplicates (2)
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
From 56d8a2e4b3470c3b7480d4eef6af49ad16169d41 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Sun, 18 Mar 2012 13:28:24 -0500
Subject: Mark "mutex with owner not retained" threads 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/threads.test | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/threads.test b/test-suite/tests/threads.test
index efdf36db2..6a4a5b70b 100644
--- a/test-suite/tests/threads.test
+++ b/test-suite/tests/threads.test
@@ -389,8 +389,10 @@
 
             (gc) (gc)
             (let ((m (g)))
-              (and (mutex? m)
-                   (eq? (mutex-owner m) (current-thread)))))))
+              (or
+               (and (mutex? m)
+                    (eq? (mutex-owner m) (current-thread)))
+               (throw 'unresolved))))))
 
       ;;
       ;; mutex lock levels