85 |
(string-upcase (make-array '(0) :element-type nil)) |
(string-upcase (make-array '(0) :element-type nil)) |
86 |
"") |
"") |
87 |
|
|
88 |
|
(deftest string-upcase.12 |
89 |
|
(loop for type in '(standard-char base-char character) |
90 |
|
for s = (make-array '(10) :element-type type |
91 |
|
:fill-pointer 5 |
92 |
|
:initial-contents "aB0cDefGHi") |
93 |
|
collect (list s (string-upcase s))) |
94 |
|
(("aB0cD" "AB0CD") ("aB0cD" "AB0CD") ("aB0cD" "AB0CD"))) |
95 |
|
|
96 |
|
|
97 |
|
(deftest string-upcase.13 |
98 |
|
(loop for type in '(standard-char base-char character) |
99 |
|
for s0 = (make-array '(10) :element-type type |
100 |
|
:initial-contents "zZaB0cDefG") |
101 |
|
for s = (make-array '(5) :element-type type |
102 |
|
:displaced-to s0 |
103 |
|
:displaced-index-offset 2) |
104 |
|
collect (list s (string-upcase s))) |
105 |
|
(("aB0cD" "AB0CD") ("aB0cD" "AB0CD") ("aB0cD" "AB0CD"))) |
106 |
|
|
107 |
|
(deftest string-upcase.14 |
108 |
|
(loop for type in '(standard-char base-char character) |
109 |
|
for s = (make-array '(5) :element-type type |
110 |
|
:adjustable t |
111 |
|
:initial-contents "aB0cD") |
112 |
|
collect (list s (string-upcase s))) |
113 |
|
(("aB0cD" "AB0CD") ("aB0cD" "AB0CD") ("aB0cD" "AB0CD"))) |
114 |
|
|
115 |
|
;;; Order of evaluation tests |
116 |
|
|
117 |
(deftest string-upcase.order.1 |
(deftest string-upcase.order.1 |
118 |
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
119 |
(values |
(values |
133 |
:start (progn (setf c (incf i)) 1)) |
:start (progn (setf c (incf i)) 1)) |
134 |
i a b c)) |
i a b c)) |
135 |
"aBCDef" 3 1 2 3) |
"aBCDef" 3 1 2 3) |
|
|
|
136 |
|
|
137 |
;;; Error cases |
;;; Error tests |
138 |
|
|
139 |
(deftest string-upcase.error.1 |
(deftest string-upcase.error.1 |
140 |
(signals-error (string-upcase) program-error) |
(signals-error (string-upcase) program-error) |