From: Stas Boukarev <stassats@gmail.com>
Date: Sun, 3 Mar 2013 11:09:40 +0000 (+0400)
Subject: Fix a test-case in threads.impure.lisp on -sb-thread.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e241757954fbb4ef0d7b97597d65bfc31dbd60ba;p=sbcl.git

Fix a test-case in threads.impure.lisp on -sb-thread.

A test was using make-thread without ensuring that sb-thread is enabled.

Fixes lp#1141795
---

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index ddd1ef0..7ebc17c 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -37,18 +37,6 @@
     (with-mutex (mutex)
       mutex)))
 
-(with-test (:name (:with-mutex :timeout))
-  (let ((m (make-mutex)))
-    (with-mutex (m)
-      (assert (null (join-thread (make-thread
-                                  (lambda ()
-                                    (with-mutex (m :timeout 0.1)
-                                      t)))))))
-    (assert (join-thread (make-thread
-                          (lambda ()
-                            (with-mutex (m :timeout 0.1)
-                              t)))))))
-
 (sb-alien:define-alien-routine "check_deferrables_blocked_or_lose"
     void
   (where sb-alien:unsigned-long))
@@ -84,6 +72,18 @@
 
 ;;;; Now the real tests...
 
+(with-test (:name (:with-mutex :timeout))
+  (let ((m (make-mutex)))
+    (with-mutex (m)
+      (assert (null (join-thread (make-thread
+                                  (lambda ()
+                                    (with-mutex (m :timeout 0.1)
+                                      t)))))))
+    (assert (join-thread (make-thread
+                          (lambda ()
+                            (with-mutex (m :timeout 0.1)
+                              t)))))))
+
 (with-test (:name (:interrupt-thread :deferrables-unblocked-by-lock))
   (let ((lock (sb-thread::make-mutex))
         (thread (make-join-thread (lambda ()