Skip to content
test-system-pathnames.script 1.06 KiB
Newer Older
(trace parse-unix-namestring asdf::determine-system-directory)
(defsystem :test-system-pathnames
  :pathname "sources/level1"
  :components
  ((:file "file1")
   (:file "file2" :pathname "level2/file2")
   (:static-file "level2/static.file")
   (:static-file "test-tmp.cl")))
(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")
(assert (probe-file (test-fasl "sources/level1/file1"))
        () "compiled file not found")
(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))
        () "symbol `*file-tmp2*` has wrong value")

(assert (probe-file (test-fasl "sources/level1/level2/file2"))
        () "compiled file not found")