8 |
(deftest nstring-upcase.1 |
(deftest nstring-upcase.1 |
9 |
(let* ((s (copy-seq "a")) |
(let* ((s (copy-seq "a")) |
10 |
(s2 (nstring-upcase s))) |
(s2 (nstring-upcase s))) |
11 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
12 |
t "A") |
t "A") |
13 |
|
|
14 |
(deftest nstring-upcase.2 |
(deftest nstring-upcase.2 |
15 |
(let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")) |
(let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")) |
16 |
(s2 (nstring-upcase s))) |
(s2 (nstring-upcase s))) |
17 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
18 |
t |
t |
19 |
"ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ") |
"ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ") |
20 |
|
|
21 |
(deftest nstring-upcase.3 |
(deftest nstring-upcase.3 |
22 |
(let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ")) |
(let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ")) |
23 |
(s2 (nstring-upcase s))) |
(s2 (nstring-upcase s))) |
24 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
25 |
t |
t |
26 |
"0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ") |
"0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ") |
27 |
|
|
29 |
(let* ((s (make-array 6 :element-type 'character |
(let* ((s (make-array 6 :element-type 'character |
30 |
:initial-contents '(#\a #\b #\c #\d #\e #\f))) |
:initial-contents '(#\a #\b #\c #\d #\e #\f))) |
31 |
(s2 (nstring-upcase s))) |
(s2 (nstring-upcase s))) |
32 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
33 |
t "ABCDEF") |
t "ABCDEF") |
34 |
|
|
35 |
(deftest nstring-upcase.7 |
(deftest nstring-upcase.7 |
36 |
(let* ((s (make-array 6 :element-type 'standard-char |
(let* ((s (make-array 6 :element-type 'standard-char |
37 |
:initial-contents '(#\a #\b #\7 #\d #\e #\f))) |
:initial-contents '(#\a #\b #\7 #\d #\e #\f))) |
38 |
(s2 (nstring-upcase s))) |
(s2 (nstring-upcase s))) |
39 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
40 |
t "AB7DEF") |
t "AB7DEF") |
41 |
|
|
42 |
;; Tests with :start, :end |
;; Tests with :start, :end |