projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
win32: Mark all currently failing tests as such
[sbcl.git]
/
tests
/
load.impure.lisp
diff --git
a/tests/load.impure.lisp
b/tests/load.impure.lisp
index
78b6d5c
..
bdc4116
100644
(file)
--- a/
tests/load.impure.lisp
+++ b/
tests/load.impure.lisp
@@
-84,8
+84,10
@@
*loaded-pathname* *loaded-truename*)
(load ,load-argument :print t :verbose t)
(assert (and (= (1+ ,before) *counter*)
*loaded-pathname* *loaded-truename*)
(load ,load-argument :print t :verbose t)
(assert (and (= (1+ ,before) *counter*)
+ #-win32 ;kludge
(equal ,(if pathname `(merge-pathnames ,pathname))
*loaded-pathname*)
(equal ,(if pathname `(merge-pathnames ,pathname))
*loaded-pathname*)
+ #-win32 ;kludge
(equal ,(if pathname `(merge-pathnames ,truename))
*loaded-truename*))))))
(equal ,(if pathname `(merge-pathnames ,truename))
*loaded-truename*))))))
@@
-272,7
+274,7
@@
(invoke-restart 'sb-fasl::object)))))
(load-and-assert spec fasl fasl))))
(invoke-restart 'sb-fasl::object)))))
(load-and-assert spec fasl fasl))))
-(with-test (:name :bug-332)
+(with-test (:name :bug-332 :fails-on :win32)
(flet ((stimulate-sbcl ()
(let ((filename (format nil "/tmp/~A.lisp" (gensym))))
;; create a file which redefines a structure incompatibly
(flet ((stimulate-sbcl ()
(let ((filename (format nil "/tmp/~A.lisp" (gensym))))
;; create a file which redefines a structure incompatibly