suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 3e2b3ad55a43831287815aa44e15aad3e46389ac
This commit is contained in:
Matthew Flatt 2004-10-08 20:58:24 +00:00
parent edf73ab783
commit 963f215117
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/tests/mred/editor.ss
View File

@ -207,6 +207,27 @@
(st "hello" new-snip get-text 0 10))
;; ----------------------------------------
;; Check CRLF conversion
(let ([crlf-s (apply
string-append
(let loop ([n 100])
(if (zero? n)
null
(cons (make-string (random 40) #\a)
(cons "\r\n"
(loop (sub1 n)))))))]
[e (new text%)])
(let ([lf-s (regexp-replace* #rx"\r\n" crlf-s "\n")]
[lflf-s (regexp-replace* #rx"\r\n" crlf-s "\n\n")])
(st "" e get-text 0 'eof)
(send e insert-port (open-input-string crlf-s))
(st lf-s e get-text 0 'eof)
(send e erase)
(send e insert crlf-s)
(st lflf-s e get-text 0 'eof)))
;; ----------------------------------------
(report-errs)