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