Newer
Older
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)
(in-package :asdf)
(use-package :asdf-test)
Francois-Rene Rideau
committed
(let* ((asd (subpathname *test-directory* "test-multiple.asd"))
(tmp (subpathname *test-directory* "../build/"))
Francois-Rene Rideau
committed
(asd2 (subpathname tmp "test-multiple-too.asd"))
(file4 (compile-file-pathname* "file4")))
Francois-Rene Rideau
committed
(setf *central-registry* `(,*test-directory* ,tmp))
(run-shell-command
(format nil "/bin/ln -sf ~A ~A 2>&1"
(native-namestring asd)
(native-namestring asd2)))
(oos 'load-source-op 'test-multiple-too)
(assert (symbol-value (asdf::find-symbol* :*file3* :test-package)))
(load-system 'test-multiple-free)
Francois-Rene Rideau
committed
(assert (asdf::probe-file* file4))))