161 |
(defvar show-trailing-whitespace)) |
(defvar show-trailing-whitespace)) |
162 |
|
|
163 |
(defvar fill-flowed-encode-tests |
(defvar fill-flowed-encode-tests |
164 |
'( |
`( |
165 |
;; The syntax of each list element is: |
;; The syntax of each list element is: |
166 |
;; (INPUT . EXPECTED-OUTPUT) |
;; (INPUT . EXPECTED-OUTPUT) |
167 |
("> Thou villainous ill-breeding spongy dizzy-eyed |
(,(concat |
168 |
> reeky elf-skinned pigeon-egg! |
"> Thou villainous ill-breeding spongy dizzy-eyed \n" |
169 |
>> Thou artless swag-bellied milk-livered |
"> reeky elf-skinned pigeon-egg! \n" |
170 |
>> dismal-dreaming idle-headed scut! |
">> Thou artless swag-bellied milk-livered \n" |
171 |
>>> Thou errant folly-fallen spleeny reeling-ripe |
">> dismal-dreaming idle-headed scut!\n" |
172 |
>>> unmuzzled ratsbane! |
">>> Thou errant folly-fallen spleeny reeling-ripe \n" |
173 |
>>>> Henceforth, the coding style is to be strictly |
">>> unmuzzled ratsbane!\n" |
174 |
>>>> enforced, including the use of only upper case. |
">>>> Henceforth, the coding style is to be strictly \n" |
175 |
>>>>> I've noticed a lack of adherence to the coding |
">>>> enforced, including the use of only upper case.\n" |
176 |
>>>>> styles, of late. |
">>>>> I've noticed a lack of adherence to the coding \n" |
177 |
>>>>>> Any complaints? |
">>>>> styles, of late.\n" |
178 |
" . "> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned |
">>>>>> Any complaints?") |
179 |
> pigeon-egg! |
. |
180 |
>> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed |
,(concat |
181 |
>> scut! |
"> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned\n" |
182 |
>>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane! |
"> pigeon-egg! \n" |
183 |
>>>> Henceforth, the coding style is to be strictly enforced, |
">> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed\n" |
184 |
>>>> including the use of only upper case. |
">> scut!\n" |
185 |
>>>>> I've noticed a lack of adherence to the coding styles, of late. |
">>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!\n" |
186 |
>>>>>> Any complaints? |
">>>> Henceforth, the coding style is to be strictly enforced,\n" |
187 |
") |
">>>> including the use of only upper case.\n" |
188 |
; (" |
">>>>> I've noticed a lack of adherence to the coding styles, of late.\n" |
189 |
;> foo |
">>>>>> Any complaints?\n" |
190 |
;> |
)) |
191 |
;> |
;; (,(concat |
192 |
;> bar |
;; "\n" |
193 |
;" . " |
;; "> foo\n" |
194 |
;> foo bar |
;; "> \n" |
195 |
;") |
;; "> \n" |
196 |
|
;; "> bar\n") |
197 |
|
;; . |
198 |
|
;; ,(concat |
199 |
|
;; "\n" |
200 |
|
;; "> foo bar\n")) |
201 |
)) |
)) |
202 |
|
|
203 |
(defun fill-flowed-test () |
(defun fill-flowed-test () |