test-system-pathnames.script 1.29 KB
Newer Older
1
;;; -*- Lisp -*-
2
(load "script-support.lisp")
3
4
5
6
7
8
9
10
11
12
13
(load-asdf)

(quit-on-error
 (asdf:load-system 'test-system-pathnames)
 (assert (find-package :test-package)
         () "package test-package not found")
 (assert (find-symbol (symbol-name '*file-tmp*) :test-package)
         () "symbol `*file-tmp*` not found")
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp*) :test-package))
         () "symbol `*file-tmp*` has wrong value")

14
15
16
17
18
19
20
21
22
 (assert (probe-file
          (asdf::apply-output-translations
           (asdf::merge-pathnames*
            (asdf::make-pathname*
             :name "file1"
             :type (asdf::fasl-type)
             :directory '(:relative "sources" "level1"))
            *test-directory*)))
         () "compiled file not found")
23
24
25
26
27
28

 (assert (find-symbol (symbol-name '*file-tmp2*) :test-package) nil
         "symbol `*file-tmp2*` not found")
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp2*) :test-package))
         nil "symbol `*file-tmp2*` has wrong value")

29
30
31
32
33
34
35
36
 (assert (probe-file
          (asdf::apply-output-translations
           (asdf::merge-pathnames*
            (asdf::make-pathname*
             :name "file2"
             :type (asdf::fasl-type)
             :directory '(:relative "sources" "level1" "level2")))))
         nil "compiled file not found"))