projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
98cc9ef
)
Temporarily disable problematic exhaust tests on Windows
author
David Lichteblau
<david@lichteblau.com>
Wed, 18 Jul 2012 17:42:13 +0000
(19:42 +0200)
committer
David Lichteblau
<david@lichteblau.com>
Wed, 18 Jul 2012 17:42:13 +0000
(19:42 +0200)
tests/exhaust.impure.lisp
patch
|
blob
|
history
diff --git
a/tests/exhaust.impure.lisp
b/tests/exhaust.impure.lisp
index
e8957a0
..
7bf0fdc
100644
(file)
--- a/
tests/exhaust.impure.lisp
+++ b/
tests/exhaust.impure.lisp
@@
-47,7
+47,9
@@
;;; Check that non-local control transfers restore the stack
;;; exhaustion checking after unwinding -- and that previous test
;;; didn't break it.
;;; Check that non-local control transfers restore the stack
;;; exhaustion checking after unwinding -- and that previous test
;;; didn't break it.
-(with-test (:name (:exhaust :non-local-control) :broken-on '(and :sunos :x86-64))
+(with-test (:name (:exhaust :non-local-control)
+ :broken-on '(and :sunos :x86-64)
+ :skipped-on :win32)
(let ((exhaust-count 0)
(recurse-count 0))
(tagbody
(let ((exhaust-count 0)
(recurse-count 0))
(tagbody
@@
-64,7
+66,9
@@
;;; Check that we can safely use user-provided restarts to
;;; unwind.
;;; Check that we can safely use user-provided restarts to
;;; unwind.
-(with-test (:name (:exhaust :restarts) :broken-on '(and :sunos :x86-64))
+(with-test (:name (:exhaust :restarts)
+ :broken-on '(and :sunos :x86-64)
+ :skipped-on :win32)
(let ((exhaust-count 0)
(recurse-count 0))
(block nil
(let ((exhaust-count 0)
(recurse-count 0))
(block nil
@@
-79,7
+83,7
@@
(recurse)))))
(assert (= exhaust-count recurse-count *count*))))
(recurse)))))
(assert (= exhaust-count recurse-count *count*))))
-(with-test (:name (:exhaust :binding-stack))
+(with-test (:name (:exhaust :binding-stack) :skipped-on :win32)
(let ((ok nil)
(symbols (loop repeat 1024 collect (gensym)))
(values (loop repeat 1024 collect nil)))
(let ((ok nil)
(symbols (loop repeat 1024 collect (gensym)))
(values (loop repeat 1024 collect nil)))