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

more test repairs

Browse Source 
original commit: 5a93e8c5e0
This commit is contained in:
Matthew Flatt 2010-05-02 08:31:12 -06:00
parent a714e5c02a
commit 4305d5eaa0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/net/encoders.rkt
View File

@ -12,12 +12,12 @@
(make-bytes 204 (char->integer #\x)) (make-bytes 204 (char->integer #\x))
(list->bytes (for/list ([i (in-range 256)]) i)) (list->bytes (for/list ([i (in-range 256)]) i))
;; Something that doesn't end with a LF: ;; Something that doesn't end with a LF:
(bytes-append (with-input-from-file (build-path dir "net.rkt") (bytes-append (with-input-from-file (build-path dir "net.rktl")
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"xxx") #"xxx")
;; CRLF: ;; CRLF:
(regexp-replace #rx#"\r?\n" (regexp-replace #rx#"\r?\n"
(with-input-from-file (build-path dir "net.rkt") (with-input-from-file (build-path dir "net.rktl")
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"\r\n")))) #"\r\n"))))
@ -61,7 +61,7 @@
;; check 1/4 of the files, randomly ;; check 1/4 of the files, randomly
(let ([p (build-path dir f)]) (let ([p (build-path dir f)])
(and (zero? (random 4)) (and (zero? (random 4))
(not (regexp-match #rx"^flat.*\\.rkt$" (not (regexp-match #rx"^flat.*\\.rktl$"
(path-element->string f))) (path-element->string f)))
(file-exists? p) (file-exists? p)
p))) p)))