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

Suppress pointless warnings in test.

parent 42986b56
......@@ -464,7 +464,9 @@
(assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2))))
#-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
(test-pathname-parsing)
......
......@@ -15,11 +15,18 @@
(run-program
`("ln" "-sf" ,(native-namestring asd) ,(native-namestring asd2))
: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))
(load-system 'test-multiple-free)
(with-bad-system-names
(load-system 'test-multiple-free))
(assert (probe-file* file4))
(assert (asymval :*file4* :test-package))
(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)
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