31 |
always (eq x (pathname x))) |
always (eq x (pathname x))) |
32 |
t) |
t) |
33 |
|
|
34 |
|
(deftest pathname.6 |
35 |
|
(equalt #p"ansi-aux.lsp" |
36 |
|
(pathname (make-array 12 :initial-contents "ansi-aux.lsp" |
37 |
|
:element-type 'base-char))) |
38 |
|
t) |
39 |
|
|
40 |
|
(deftest pathname.7 |
41 |
|
(equalt #p"ansi-aux.lsp" |
42 |
|
(pathname (make-array 15 :initial-contents "ansi-aux.lspXXX" |
43 |
|
:element-type 'base-char |
44 |
|
:fill-pointer 12))) |
45 |
|
t) |
46 |
|
|
47 |
|
(deftest pathname.8 |
48 |
|
(equalt #p"ansi-aux.lsp" |
49 |
|
(pathname (make-array 12 :initial-contents "ansi-aux.lsp" |
50 |
|
:element-type 'base-char |
51 |
|
:adjustable t))) |
52 |
|
t) |
53 |
|
|
54 |
|
(deftest pathname.9 |
55 |
|
(equalt #p"ansi-aux.lsp" |
56 |
|
(pathname (make-array 15 :initial-contents "ansi-aux.lspXXX" |
57 |
|
:element-type 'character |
58 |
|
:fill-pointer 12))) |
59 |
|
t) |
60 |
|
|
61 |
|
(deftest pathname.10 |
62 |
|
(equalt #p"ansi-aux.lsp" |
63 |
|
(pathname (make-array 12 :initial-contents "ansi-aux.lsp" |
64 |
|
:element-type 'character |
65 |
|
:adjustable t))) |
66 |
|
t) |
67 |
|
|
68 |
|
(deftest pathname.11 |
69 |
|
(loop for etype in '(standard-char base-char character) |
70 |
|
collect |
71 |
|
(equalt #p"ansi-aux.lsp" |
72 |
|
(pathname |
73 |
|
(let* ((s (make-array 15 :initial-contents "XXansi-aux.lspX" |
74 |
|
:element-type etype))) |
75 |
|
(make-array 12 :element-type etype |
76 |
|
:displaced-to s |
77 |
|
:displaced-index-offset 2))))) |
78 |
|
(t t t)) |
79 |
|
|
80 |
;;; Error tests |
;;; Error tests |
81 |
|
|
82 |
(deftest pathname.error.1 |
(deftest pathname.error.1 |