67 |
(deftest make-pathname.8 |
(deftest make-pathname.8 |
68 |
(make-pathname-test :version :wild) |
(make-pathname-test :version :wild) |
69 |
t) |
t) |
70 |
|
|
71 |
|
(deftest make-pathname.9 |
72 |
|
(make-pathname-test :defaults *default-pathname-defaults*) |
73 |
|
t) |
74 |
|
|
75 |
|
(deftest make-pathname.10 |
76 |
|
(make-pathname-test :defaults (make-pathname :name "foo" :type "bar")) |
77 |
|
t) |
78 |
|
|
79 |
|
(deftest make-pathname.11 |
80 |
|
(make-pathname-test :version :newest) |
81 |
|
t) |
82 |
|
|
83 |
|
(deftest make-pathname.12 |
84 |
|
(make-pathname-test :case :local) |
85 |
|
t) |
86 |
|
|
87 |
|
(deftest make-pathname.13 |
88 |
|
(make-pathname-test :case :common) |
89 |
|
t) |
90 |
|
|
91 |
|
;;; Various constraints on :directory |
92 |
|
|
93 |
|
(deftest make-pathname-error-absolute-up |
94 |
|
(classify-error (directory (make-pathname :directory '(:absolute :up)))) |
95 |
|
file-error) |
96 |
|
|
97 |
|
(deftest make-pathname-error-absolute-back |
98 |
|
(classify-error (directory (make-pathname :directory '(:absolute :back)))) |
99 |
|
file-error) |
100 |
|
|
101 |
|
;; The next test is correct, but was causing very large amounts of time to be spent |
102 |
|
;; in buggy implementations |
103 |
|
#| |
104 |
|
(deftest make-pathname-error-absolute-wild-inferiors-up |
105 |
|
(classify-error (directory (make-pathname :directory '(:absolute :wild-inferiors :up)))) |
106 |
|
file-error) |
107 |
|
|# |
108 |
|
|
109 |
|
(deftest make-pathname-error-relative-wild-inferiors-up |
110 |
|
(classify-error (length (directory (make-pathname :directory '(:relative :wild-inferiors :up))))) |
111 |
|
file-error) |
112 |
|
|
113 |
|
(deftest make-pathname-error-absolute-wild-inferiors-back |
114 |
|
(classify-error (directory (make-pathname :directory '(:absolute :wild-inferiors :back)))) |
115 |
|
file-error) |
116 |
|
|
117 |
|
(deftest make-pathname-error-relative-wild-inferiors-back |
118 |
|
(classify-error (directory (make-pathname :directory '(:relative :wild-inferiors :back)))) |
119 |
|
file-error) |
120 |
|
|