diff --git a/pkgs/net-pkgs/net-test/tests/net/encoders.rkt b/pkgs/net-pkgs/net-test/tests/net/encoders.rkt index 5ae42f7a8c..2c6dba5df0 100644 --- a/pkgs/net-pkgs/net-test/tests/net/encoders.rkt +++ b/pkgs/net-pkgs/net-test/tests/net/encoders.rkt @@ -2,7 +2,7 @@ (require net/base64 net/qp tests/eli-tester) (define tricky-strings - (let ([dir (collection-path "tests" "racket")]) + (let ([net.rktl (collection-file-path "net.rktl" "tests" "racket")]) (list (make-bytes 200 32) (make-bytes 200 9) (make-bytes 200 (char->integer #\x)) @@ -12,12 +12,12 @@ (make-bytes 204 (char->integer #\x)) (list->bytes (for/list ([i (in-range 256)]) i)) ;; 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))) #"xxx") ;; CRLF: (regexp-replace #rx#"\r?\n" - (with-input-from-file (build-path dir "net.rktl") + (with-input-from-file net.rktl (lambda () (read-bytes 500))) #"\r\n"))))