2
;;;; Author: Paul Dietz
3
;;;; Created: Thu Jan 1 12:00:18 2004
4
;;;; Contains: Tests of DIRECTORY
9
(directory "nonexistent")
13
(directory #p"nonexistent")
17
(directory "nonexistent" :allow-other-keys nil)
21
(directory "nonexistent" :allow-other-keys t :foo 'bar)
25
(directory "nonexistent" :foo 0 :allow-other-keys t)
29
(let* ((pattern-pathname (make-pathname :name :wild :type :wild
30
:defaults *default-pathname-defaults*))
31
(pathnames (directory pattern-pathname)))
33
(remove-if #'pathnamep pathnames)
34
(loop for pn in pathnames
35
unless (equal pn (truename pn))
37
;; (loop for pn in pathnames
38
;; unless (pathname-match-p pn pattern-pathname)
45
(let* ((pattern-pathname (make-pathname :name :wild :type :wild
46
:defaults *default-pathname-defaults*))
47
(pathnames (directory pattern-pathname)))
48
(loop for pn in pathnames
49
unless (equal pn (probe-file pn))
54
(let* ((pathname-pattern "CLTEST:*.*")
55
(len (length (directory pathname-pattern))))
56
(if (< len 500) len nil))
59
(deftest directory.error.1
60
(signals-error (directory) program-error)