89 |
(string-capitalize (make-array '(0) :element-type nil)) |
(string-capitalize (make-array '(0) :element-type nil)) |
90 |
"") |
"") |
91 |
|
|
92 |
|
(deftest string-capitalize.12 |
93 |
|
(loop for type in '(standard-char base-char character) |
94 |
|
for s = (make-array '(10) :element-type type |
95 |
|
:fill-pointer 5 |
96 |
|
:initial-contents "aB0cDefGHi") |
97 |
|
collect (list s (string-capitalize s))) |
98 |
|
(("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd"))) |
99 |
|
|
100 |
|
|
101 |
|
(deftest string-capitalize.13 |
102 |
|
(loop for type in '(standard-char base-char character) |
103 |
|
for s0 = (make-array '(10) :element-type type |
104 |
|
:initial-contents "zZaB0cDefG") |
105 |
|
for s = (make-array '(5) :element-type type |
106 |
|
:displaced-to s0 |
107 |
|
:displaced-index-offset 2) |
108 |
|
collect (list s (string-capitalize s))) |
109 |
|
(("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd"))) |
110 |
|
|
111 |
|
(deftest string-capitalize.14 |
112 |
|
(loop for type in '(standard-char base-char character) |
113 |
|
for s = (make-array '(5) :element-type type |
114 |
|
:adjustable t |
115 |
|
:initial-contents "aB0cD") |
116 |
|
collect (list s (string-capitalize s))) |
117 |
|
(("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd"))) |
118 |
|
|
119 |
|
;;; Order of evaluation tests |
120 |
|
|
121 |
(deftest string-capitalize.order.1 |
(deftest string-capitalize.order.1 |
122 |
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
123 |
(values |
(values |