test-xach-update-bug.script 586 Bytes
Newer Older
1 2 3 4
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)

5
#+gcl (trace load compile-file asdf:perform asdf::perform-plan)
6
(with-test ()
7 8 9 10 11 12 13
 (setf asdf:*central-registry* (list (asdf::subpathname *test-directory* "xach-foo-1/")))
 (asdf:load-system "foo")
 (assert (symbol-value (find-symbol (string :loaded) :first-version)))
 (setf asdf:*central-registry* (list (asdf::subpathname *test-directory* "xach-foo-2/")))
 (asdf:load-system "foo")
 (assert (symbol-value (find-symbol (string :loaded) :second-version)))
 (assert (eql 42 (funcall (find-symbol (string :wtf) :second-version)))))