72 |
(nstring-downcase (make-array '(0) :element-type nil)) |
(nstring-downcase (make-array '(0) :element-type nil)) |
73 |
"") |
"") |
74 |
|
|
75 |
|
(deftest nstring-downcase.12 |
76 |
|
(loop for type in '(standard-char base-char character) |
77 |
|
for s = (make-array '(10) :element-type type |
78 |
|
:fill-pointer 5 |
79 |
|
:initial-contents "aB0cDefGHi") |
80 |
|
collect (list (copy-seq s) |
81 |
|
(copy-seq (nstring-downcase s)) |
82 |
|
(copy-seq s) |
83 |
|
(progn (setf (fill-pointer s) 10) (copy-seq s)) |
84 |
|
)) |
85 |
|
(("aB0cD" "ab0cd" "ab0cd" "ab0cdefGHi") |
86 |
|
("aB0cD" "ab0cd" "ab0cd" "ab0cdefGHi") |
87 |
|
("aB0cD" "ab0cd" "ab0cd" "ab0cdefGHi"))) |
88 |
|
|
89 |
|
(deftest nstring-downcase.13 |
90 |
|
(loop for type in '(standard-char base-char character) |
91 |
|
for s0 = (make-array '(10) :element-type type |
92 |
|
:initial-contents "zZaB0cDefG") |
93 |
|
for s = (make-array '(5) :element-type type |
94 |
|
:displaced-to s0 |
95 |
|
:displaced-index-offset 2) |
96 |
|
collect (list (copy-seq s) |
97 |
|
(nstring-downcase s) |
98 |
|
(copy-seq s) |
99 |
|
s0)) |
100 |
|
(("aB0cD" "ab0cd" "ab0cd" "zZab0cdefG") |
101 |
|
("aB0cD" "ab0cd" "ab0cd" "zZab0cdefG") |
102 |
|
("aB0cD" "ab0cd" "ab0cd" "zZab0cdefG"))) |
103 |
|
|
104 |
|
(deftest nstring-downcase.14 |
105 |
|
(loop for type in '(standard-char base-char character) |
106 |
|
for s = (make-array '(5) :element-type type |
107 |
|
:adjustable t |
108 |
|
:initial-contents "aB0cD") |
109 |
|
collect (list (copy-seq s) |
110 |
|
(nstring-downcase s) |
111 |
|
(copy-seq s))) |
112 |
|
(("aB0cD" "ab0cd" "ab0cd") |
113 |
|
("aB0cD" "ab0cd" "ab0cd") |
114 |
|
("aB0cD" "ab0cd" "ab0cd"))) |
115 |
|
|
116 |
|
;;; Order of evaluation tests |
117 |
|
|
118 |
(deftest nstring-downcase.order.1 |
(deftest nstring-downcase.order.1 |
119 |
(let ((i 0) a b c (s (copy-seq "ABCDEF"))) |
(let ((i 0) a b c (s (copy-seq "ABCDEF"))) |
120 |
(values |
(values |