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

fix a use of collection-path

Browse Source
This commit is contained in:
Robby Findler 2013-11-02 21:24:23 -05:00
parent a2bf105ca3
commit 86d9a2fff2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/net-pkgs/net-test/tests/net/encoders.rkt
View File

@ -2,7 +2,7 @@
(require net/base64 net/qp tests/eli-tester) (require net/base64 net/qp tests/eli-tester)
(define tricky-strings (define tricky-strings
(let ([dir (collection-path "tests" "racket")]) (let ([net.rktl (collection-file-path "net.rktl" "tests" "racket")])
(list (make-bytes 200 32) (list (make-bytes 200 32)
(make-bytes 200 9) (make-bytes 200 9)
(make-bytes 200 (char->integer #\x)) (make-bytes 200 (char->integer #\x))
@ -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.rktl") (bytes-append (with-input-from-file 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.rktl") (with-input-from-file net.rktl
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"\r\n")))) #"\r\n"))))