Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Eric Timmons
asdf
Commits
761ef33e
Commit
761ef33e
authored
Feb 20, 2018
by
Robert Goldman
Browse files
Suppress pointless warnings in test.
parent
42986b56
Changes
2
Show whitespace changes
Inline
Side-by-side
test/asdf-pathname-test.script
View file @
761ef33e
...
...
@@ -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)
...
...
test/test-multiple.script
View file @
761ef33e
...
...
@@ -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)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment