From 97527a422a7ca9ad37332af9a5a33d710a20dcda Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Wed, 18 Jul 2012 19:42:13 +0200 Subject: [PATCH] Temporarily disable problematic exhaust tests on Windows --- tests/exhaust.impure.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/tests/exhaust.impure.lisp b/tests/exhaust.impure.lisp index e8957a0..7bf0fdc 100644 --- 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. -(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 @@ -64,7 +66,9 @@ ;;; 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 @@ -79,7 +83,7 @@ (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))) -- 1.7.10.4