test-module-pathnames.script 1.92 KB
Newer Older
1
;;; -*- Lisp -*-
2
(load "script-support.lisp")
3
(load-asdf)
4

5
(quit-on-error
6
 (asdf:load-system 'test-module-pathnames)
7
8
9
10
11
12
13
14
15
 (flet ((pathname-foo (x)
          (list (or (asdf::normalize-pathname-directory-component (pathname-directory x)) '(:relative))
                (pathname-name x) (pathname-type x))))
   (let* ((static (find-component "test-module-pathnames" '("sources/level1" "level2/static.file")))
          (test-tmp (find-component "test-module-pathnames" '("sources/level1" "test-tmp.cl"))))
     (assert-equal (pathname-foo (asdf:component-relative-pathname test-tmp))
                   '((:relative) "test-tmp" "cl"))
     (assert-equal (pathname-foo (asdf:component-relative-pathname static))
                   '((:relative "level2") "static" "file"))))
16
17
18
19
 (assert (find-package :test-package)
         () "package test-package not found")
 (assert (find-symbol (symbol-name '*file-tmp*) :test-package)
         () "symbol `*file-tmp*` not found")
20
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp*) :test-package))
21
         () "symbol `*file-tmp*` has wrong value")
22

23
24
25
26
27
28
29
30
31
 (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")
32

33
34
 (assert (find-symbol (symbol-name '*file-tmp2*) :test-package)
         () "symbol `*file-tmp2*` not found")
35
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp2*) :test-package))
36
         () "symbol `*file-tmp2*` has wrong value")
37

38
39
40
41
42
43
44
45
 (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"))