60 |
("ABCDEF" "ABCDEF" "ABCDEf") |
("ABCDEF" "ABCDEF" "ABCDEf") |
61 |
("ABCDEF" "ABCDEF"))) |
("ABCDEF" "ABCDEF"))) |
62 |
|
|
63 |
|
(deftest nstring-capitalize.order.1 |
64 |
|
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
65 |
|
(values |
66 |
|
(nstring-capitalize |
67 |
|
(progn (setf a (incf i)) s) |
68 |
|
:start (progn (setf b (incf i)) 1) |
69 |
|
:end (progn (setf c (incf i)) 4)) |
70 |
|
i a b c)) |
71 |
|
"aBcdef" 3 1 2 3) |
72 |
|
|
73 |
|
(deftest nstring-capitalize.order.2 |
74 |
|
(let ((i 0) a b c (s (copy-seq "abcdef"))) |
75 |
|
(values |
76 |
|
(nstring-capitalize |
77 |
|
(progn (setf a (incf i)) s) |
78 |
|
:end (progn (setf b (incf i)) 4) |
79 |
|
:start (progn (setf c (incf i)) 1)) |
80 |
|
i a b c)) |
81 |
|
"aBcdef" 3 1 2 3) |
82 |
|
|
83 |
;;; Error cases |
;;; Error cases |
84 |
|
|
85 |
(deftest nstring-capitalize.error.1 |
(deftest nstring-capitalize.error.1 |