test-multiple.script 985 Bytes
Newer Older
1
2
3
4
5
6
7
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)

(quit-on-error
 (let* ((asd (asdf:merge-pathnames* (asdf:coerce-pathname "test-multiple.asd")
                                    *test-directory*))
8
9
10
11
12
13
        (tmp (asdf:merge-pathnames* (asdf:coerce-pathname "../tmp/")
                                    *test-directory*))
        (asd2 (asdf:merge-pathnames* (asdf:coerce-pathname "test-multiple-too.asd")
                                     tmp))
        (file4 (asdf:compile-file-pathname* "file4")))
   (setf asdf:*central-registry* `(*default-pathname-defaults* ,tmp))
14
   (assert (= 0 (asdf:run-shell-command
15
                 (format nil "/bin/ln -sf ~A ~A"
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
16
17
                         (native-namestring asd)
                         (native-namestring asd2)))))
18
19
20
21
   (asdf:oos 'asdf:load-source-op 'test-multiple-too)
   (assert (symbol-value (find-symbol (string :*file3*) :test-package)))
   (asdf:load-system 'test-multiple-free)
   (assert (asdf::probe-file* file4))))