67 |
("abcde" "abcDe" "abcDE") |
("abcde" "abcDe" "abcDE") |
68 |
("abcde" "abcdE"))) |
("abcde" "abcdE"))) |
69 |
|
|
70 |
|
;;; Error cases |
71 |
|
|
72 |
|
(deftest nstring-downcase.error.1 |
73 |
|
(classify-error (nstring-downcase)) |
74 |
|
program-error) |
75 |
|
|
76 |
|
(deftest nstring-downcase.error.2 |
77 |
|
(classify-error (nstring-downcase (copy-seq "abc") :bad t)) |
78 |
|
program-error) |
79 |
|
|
80 |
|
(deftest nstring-downcase.error.3 |
81 |
|
(classify-error (nstring-downcase (copy-seq "abc") :start)) |
82 |
|
program-error) |
83 |
|
|
84 |
|
(deftest nstring-downcase.error.4 |
85 |
|
(classify-error (nstring-downcase (copy-seq "abc") :bad t |
86 |
|
:allow-other-keys nil)) |
87 |
|
program-error) |
88 |
|
|
89 |
|
(deftest nstring-downcase.error.5 |
90 |
|
(classify-error (nstring-downcase (copy-seq "abc") :end)) |
91 |
|
program-error) |
92 |
|
|
93 |
|
(deftest nstring-downcase.error.6 |
94 |
|
(classify-error (nstring-downcase (copy-seq "abc") 1 2)) |
95 |
|
program-error) |
96 |
|
|
97 |
|
|
98 |
|
|