Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
026ceaea
Commit
026ceaea
authored
Jul 20, 2017
by
Francois-Rene Rideau
Browse files
Fix two tests on ABCL
parent
1b0b2b5a
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/stamp-propagation/test-stamp-propagation.lisp
View file @
026ceaea
...
...
@@ -203,18 +203,23 @@
(
DBG
"cleaning up"
)
(
clear-fasls
defsystem
))
(
cond
#+
asdf3
;; TODO: figure out why ABCL and XCL fail to recompile anything.
((
and
#+
(
or
abcl
xcl
)
(
use-cache-p
:asdf
))
(
test-defsystem
:asdf
))
(
t
(
signals
error
(
test-defsystem
:asdf
))))
;; The test should work on ASDF3 and later:
;; (this is THE bug that motivated the rewrite from ASDF 2 to ASDF 3).
(
nest
#-
asdf3
(
signals
error
)
;; TODO: figure out why ABCL and XCL require this with-asdf-session.
#+
(
and
asdf3.3
(
or
abcl
xcl
))
(
with-asdf-session
()
(
load-system
"asdf"
))
(
test-defsystem
:asdf
))
;; Genera's and Lispworks' defsystem have a bug fix, though
;; users need to manually specify non-default dependencies
#+
(
or
genera
lispworks
)
(
test-defsystem
:native
)
;; Allegro's defsystem has the bug
#+
(
or
allegro
)
(
signals
error
(
test-defsystem
:native
))
#+
mkdefsystem
;; MK-DEFSYSTEM has the bug
#+
mk-defsystem
(
signals
error
(
test-defsystem
:mk-defsystem
))
test/test-mutual-redefinition.script
View file @
026ceaea
...
...
@@ -5,14 +5,17 @@
(defun current-system-source-file (x)
(system-source-file (asdf::registered-system x)))
#+abcl (setf jvm::*resignal-compiler-warnings* t)
(with-asdf-session (:override t)
(terpri)
(DBG "Loading test-mutual-redefinition-1")
(let ((warned-p nil))
(handler-bind ((bad-system-name (lambda (c)
(setf warned-p t)
(format t "Caught bad-system-name condition: ~A~%" c)
(assert-equal (component-name c) "test-mutual-redefinition-2")
(assert-equal (pathname-name (system-source-file c)) "test-mutual-redefinition-1")
(setf warned-p t))))
(assert-equal (pathname-name (system-source-file c)) "test-mutual-redefinition-1"))))
(load-system 'test-mutual-redefinition-1))
(assert warned-p))
(assert-pathname-equal
...
...
@@ -27,9 +30,10 @@
Looking for its definition should trigger a DEFINE-OP and cause the asd paths to be affected.")
(let ((warned-p nil))
(handler-bind ((bad-system-name (lambda (c)
(setf warned-p t)
(format t "Caught bad-system-name condition: ~A~%" c)
(assert-equal (component-name c) "test-mutual-redefinition-1")
(assert-equal (pathname-name (system-source-file c)) "test-mutual-redefinition-2")
(setf warned-p t))))
(assert-equal (pathname-name (system-source-file c)) "test-mutual-redefinition-2"))))
(load-system 'test-mutual-redefinition-2))
(assert warned-p))
(assert-pathname-equal
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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