projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
export MAP-DIRECTORY from SB-EXT
[sbcl.git]
/
tests
/
alien.impure.lisp
diff --git
a/tests/alien.impure.lisp
b/tests/alien.impure.lisp
index
98e88f2
..
e68278c
100644
(file)
--- a/
tests/alien.impure.lisp
+++ b/
tests/alien.impure.lisp
@@
-247,8
+247,11
@@
;;; void conflicted with derived type
(declaim (inline bug-316075))
;;; void conflicted with derived type
(declaim (inline bug-316075))
+#-win32 ;kludge: This reader conditional masks a bug, but allows the test
+ ;to fail cleanly.
(sb-alien:define-alien-routine bug-316075 void (result char :out))
(sb-alien:define-alien-routine bug-316075 void (result char :out))
-(with-test (:name bug-316075)
+(with-test (:name bug-316075 :fails-on :win32)
+ #+win32 (error "fail")
(handler-bind ((warning #'error))
(compile nil '(lambda () (multiple-value-list (bug-316075))))))
(handler-bind ((warning #'error))
(compile nil '(lambda () (multiple-value-list (bug-316075))))))
@@
-306,7
+309,7
@@
(compiler-note (n)
(error "bad note: ~A" n))))
(compiler-note (n)
(error "bad note: ~A" n))))
-(with-test (:name :bug-721087)
+(with-test (:name :bug-721087 :fails-on :win32)
(assert (typep nil '(alien c-string)))
(assert (not (typep nil '(alien (c-string :not-null t)))))
(assert (eq :ok
(assert (typep nil '(alien c-string)))
(assert (not (typep nil '(alien (c-string :not-null t)))))
(assert (eq :ok