Loading test/test-xach-update-bug.script +46 −46 Original line number Diff line number Diff line Loading @@ -6,8 +6,9 @@ (defparameter foo :test-asdf-location-change) (with-expected-failure (#+ecl (not (asdf:version-satisfies (lisp-implementation-version) "16")) #-ecl nil) #+ecl (unless (version-satisfies (lisp-implementation-version) "16") (leave-test "ECL only supports this test starting with 16.0.0" 0)) (DBG "load foo. Should load from xach-foo-1/") (setf *central-registry* (list (subpathname *test-directory* "xach-foo-1/"))) (defparameter foo1 (find-system foo)) Loading Loading @@ -53,4 +54,3 @@ (load-system foo) (assert (symbol-value (find-symbol* :loaded :second-version))) (assert-equal 42 (symbol-call :second-version :wtf)) ) Loading
test/test-xach-update-bug.script +46 −46 Original line number Diff line number Diff line Loading @@ -6,8 +6,9 @@ (defparameter foo :test-asdf-location-change) (with-expected-failure (#+ecl (not (asdf:version-satisfies (lisp-implementation-version) "16")) #-ecl nil) #+ecl (unless (version-satisfies (lisp-implementation-version) "16") (leave-test "ECL only supports this test starting with 16.0.0" 0)) (DBG "load foo. Should load from xach-foo-1/") (setf *central-registry* (list (subpathname *test-directory* "xach-foo-1/"))) (defparameter foo1 (find-system foo)) Loading Loading @@ -53,4 +54,3 @@ (load-system foo) (assert (symbol-value (find-symbol* :loaded :second-version))) (assert-equal 42 (symbol-call :second-version :wtf)) )