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

(quit-on-error 
6
7
8
9
10
11
12
13
14
15
16
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 (asdf:load-system 'test-module-pathnames)
 (flet ((submodule (module name)
          (find name (asdf:module-components module)
                :key #'asdf:component-name :test #'equal))
        (pathname-foo (x)
          (list (pathname-directory x) (pathname-name x) (pathname-type x))))
   (let* ((system (asdf:find-system "test-module-pathnames"))
          (level1 (submodule system "sources/level1"))
          (static (submodule level1 "level2/static.file"))
          (test-tmp (submodule level1 "test-tmp.cl")))
17
18
19
     (assert (member (pathname-foo (asdf:component-relative-pathname test-tmp))
                     '(((:relative) "test-tmp" "cl")
                       (nil "test-tmp" "cl")) :test 'equal)
20
21
22
23
24
25
26
             nil
             "Didn't get the name of test-tmp.cl right")
     (assert (equal
              (pathname-foo (asdf:component-relative-pathname static))
              '((:relative "level2") "static" "file"))
             nil
             "Didn't get the name of static.file right"))) 
27
28
29
30
31
32
 (assert (find-package :test-package) nil
	 "package test-package not found")
 (assert (find-symbol (symbol-name '*file-tmp*) :test-package) nil
	 "symbol `*file-tmp*` not found")
 (assert (symbol-value (find-symbol (symbol-name '*file-tmp*) :test-package))
	 nil "symbol `*file-tmp*` has wrong value")
33
34

#| ; must be adapted to ABL
35
36
37
38
39
40
 (assert (probe-file (merge-pathnames 
		      (make-pathname 
		       :name "file1"
		       :type (pathname-type (compile-file-pathname "x"))
		       :directory '(:relative "sources" "level1"))))
	 nil "compiled file not found")
41
|#
42
43
44
45
46

 (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")
47
48
49

#| ; must be adapted to ABL

50
51
52
53
54
 (assert (probe-file (merge-pathnames 
		      (make-pathname 
		       :name "file2"
		       :type (pathname-type (compile-file-pathname "x"))
		       :directory '(:relative "sources" "level1" "level2"))))
55
56
57
58
	 nil "compiled file not found")
|#

)