Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Mon Jan 13 14:11:51 2003 UTC | revision 1.6 by pfdietz, Sat Feb 15 05:11:12 2003 UTC | |
---|---|---|
# | Line 141 | Line 141 |
141 | (string-right-trim "abc" (copy-seq "abcabcabc")) | (string-right-trim "abc" (copy-seq "abcabcabc")) |
142 | "") | "") |
143 | ||
144 | (deftest string-right-trim.order.1 | |
145 | (let ((i 0) x y) | |
146 | (values | |
147 | (string-right-trim (progn (setf x (incf i)) " ") | |
148 | (progn (setf y (incf i)) | |
149 | (copy-seq " abc d e f "))) | |
150 | i x y)) | |
151 | " abc d e f" 2 1 2) | |
152 | ||
153 | ;;; Error cases | ;;; Error cases |
154 | ||
155 | (deftest string-right-trim.error.1 | (deftest string-right-trim.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |