Commit 761ef33e authored by Robert Goldman's avatar Robert Goldman

Suppress pointless warnings in test.

parent 42986b56
...@@ -464,7 +464,9 @@ ...@@ -464,7 +464,9 @@
(assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2)))) (assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2))))
#-gcl ;; expected-failure: GCL crashes badly #-gcl ;; expected-failure: GCL crashes badly
(assert (test-component-pathnames :delete-host t :support-string-pathnames nil)) (assert
(handler-bind ((bad-system-name #'(lambda (c) (muffle-warning c))))
(test-component-pathnames :delete-host t :support-string-pathnames nil)))
#+os-unix #+os-unix
(test-pathname-parsing) (test-pathname-parsing)
......
...@@ -15,11 +15,18 @@ ...@@ -15,11 +15,18 @@
(run-program (run-program
`("ln" "-sf" ,(native-namestring asd) ,(native-namestring asd2)) `("ln" "-sf" ,(native-namestring asd) ,(native-namestring asd2))
:output t :error-output t :input nil :ignore-error-status t))))) :output t :error-output t :input nil :ignore-error-status t)))))
(oos 'load-source-op (if symlinkp 'test-multiple-too 'test-multiple)) (defmacro with-bad-system-names (&body body)
`(handler-bind ((bad-system-name #'(lambda (c) (muffle-warning c))))
,@body))
(with-bad-system-names
(oos 'load-source-op (if symlinkp 'test-multiple-too 'test-multiple)))
(assert (asymval :*file2* :test-package)) (assert (asymval :*file2* :test-package))
(load-system 'test-multiple-free) (with-bad-system-names
(load-system 'test-multiple-free))
(assert (probe-file* file4)) (assert (probe-file* file4))
(assert (asymval :*file4* :test-package)) (assert (asymval :*file4* :test-package))
(setf test-package::*file4* nil) (setf test-package::*file4* nil)
(load-system 'test-multiple-free) (with-bad-system-names
(load-system 'test-multiple-free))
(assert-equal test-package::*file4* nil) (assert-equal test-package::*file4* nil)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment