load.lsp 972 Bytes
Newer Older
1
;;;; Tests for pathnames and logical pathnames
2
(compile-and-load* "pathnames-aux.lsp")
3

4 5 6 7 8
(in-package #:cl-test)

(let ((*default-pathname-defaults*
       (make-pathname
        :directory (pathname-directory *load-pathname*))))
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
  (load "pathnames.lsp")
  (load "pathname.lsp")
  (load "pathnamep.lsp")
  (load "make-pathname.lsp")
  (load "pathname-host.lsp")
  (load "pathname-device.lsp")
  (load "pathname-directory.lsp")
  (load "pathname-name.lsp")
  (load "pathname-type.lsp")
  (load "pathname-version.lsp")

  (load "load-logical-pathname-translations.lsp")
  (load "logical-pathname.lsp")
  (load "logical-pathname-translations.lsp")
  (load "translate-logical-pathname.lsp")

  (load "namestring.lsp")
  (load "file-namestring.lsp")
  (load "directory-namestring.lsp")
  (load "host-namestring.lsp")
  (load "enough-namestring.lsp")

  (load "wild-pathname-p.lsp")
  (load "merge-pathnames.lsp")
  (load "pathname-match-p.lsp")

35
  (load "parse-namestring.lsp"))