projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
robustify COUNT-FULL-CALLS in the test suite
[sbcl.git]
/
tests
/
packages.impure.lisp
diff --git
a/tests/packages.impure.lisp
b/tests/packages.impure.lisp
index
db5c3b2
..
96431a5
100644
(file)
--- a/
tests/packages.impure.lisp
+++ b/
tests/packages.impure.lisp
@@
-272,6
+272,11
@@
if a restart was invoked."
(is (eq (sym "FOO" "SYM")
(sym "BAZ" "SYM"))))))
(is (eq (sym "FOO" "SYM")
(sym "BAZ" "SYM"))))))
+(with-test (:name unintern.2)
+ (with-packages (("FOO" (:intern "SYM")))
+ (unintern :sym "FOO")
+ (assert (find-symbol "SYM" "FOO"))))
+
;;; WITH-PACKAGE-ITERATOR error signalling had problems
(with-test (:name with-package-itarator.error)
(assert (eq :good
;;; WITH-PACKAGE-ITERATOR error signalling had problems
(with-test (:name with-package-itarator.error)
(assert (eq :good
@@
-285,8
+290,7
@@
if a restart was invoked."
:good)))))
;;; MAKE-PACKAGE error in another thread blocking FIND-PACKAGE & FIND-SYMBOL
:good)))))
;;; MAKE-PACKAGE error in another thread blocking FIND-PACKAGE & FIND-SYMBOL
-#+sb-thread
-(with-test (:name :bug-511072)
+(with-test (:name :bug-511072 :skipped-on '(not :sb-thread))
(let* ((p (make-package :bug-511072))
(sem (sb-thread:make-semaphore))
(t2 (sb-thread:make-thread (lambda ()
(let* ((p (make-package :bug-511072))
(sem (sb-thread:make-semaphore))
(t2 (sb-thread:make-thread (lambda ()