59 |
("ABCDEF" "ABCDEF" "ABCDeF" "ABCDef") |
("ABCDEF" "ABCDEF" "ABCDeF" "ABCDef") |
60 |
("ABCDEF" "ABCDEF" "ABCDEf") |
("ABCDEF" "ABCDEF" "ABCDEf") |
61 |
("ABCDEF" "ABCDEF"))) |
("ABCDEF" "ABCDEF"))) |
62 |
|
|
63 |
|
;;; Error cases |
64 |
|
|
65 |
|
(deftest nstring-capitalize.error.1 |
66 |
|
(classify-error (nstring-capitalize)) |
67 |
|
program-error) |
68 |
|
|
69 |
|
(deftest nstring-capitalize.error.2 |
70 |
|
(classify-error (nstring-capitalize (copy-seq "abc") :bad t)) |
71 |
|
program-error) |
72 |
|
|
73 |
|
(deftest nstring-capitalize.error.3 |
74 |
|
(classify-error (nstring-capitalize (copy-seq "abc") :start)) |
75 |
|
program-error) |
76 |
|
|
77 |
|
(deftest nstring-capitalize.error.4 |
78 |
|
(classify-error (nstring-capitalize (copy-seq "abc") :bad t |
79 |
|
:allow-other-keys nil)) |
80 |
|
program-error) |
81 |
|
|
82 |
|
(deftest nstring-capitalize.error.5 |
83 |
|
(classify-error (nstring-capitalize (copy-seq "abc") :end)) |
84 |
|
program-error) |
85 |
|
|
86 |
|
(deftest nstring-capitalize.error.6 |
87 |
|
(classify-error (nstring-capitalize (copy-seq "abc") 1 2)) |
88 |
|
program-error) |