8 |
(deftest nstring-downcase.1 |
(deftest nstring-downcase.1 |
9 |
(let* ((s (copy-seq "A")) |
(let* ((s (copy-seq "A")) |
10 |
(s2 (nstring-downcase s))) |
(s2 (nstring-downcase s))) |
11 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
12 |
t "a") |
t "a") |
13 |
|
|
14 |
(deftest nstring-downcase.2 |
(deftest nstring-downcase.2 |
15 |
(let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")) |
(let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")) |
16 |
(s2 (nstring-downcase s))) |
(s2 (nstring-downcase s))) |
17 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
18 |
t |
t |
19 |
"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz") |
"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz") |
20 |
|
|
21 |
(deftest nstring-downcase.3 |
(deftest nstring-downcase.3 |
22 |
(let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ")) |
(let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ")) |
23 |
(s2 (nstring-downcase s))) |
(s2 (nstring-downcase 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-downcase s))) |
(s2 (nstring-downcase s))) |
32 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
33 |
t "abcdef") |
t "abcdef") |
34 |
|
|
35 |
(deftest nstring-downcase.7 |
(deftest nstring-downcase.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-downcase s))) |
(s2 (nstring-downcase s))) |
39 |
(values (eq s s2) s)) |
(values (eqt s s2) s)) |
40 |
t |
t |
41 |
"ab7def") |
"ab7def") |
42 |
|
|