From 4305d5eaa02fd8e531f41351fdc7c9285f858df5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 May 2010 08:31:12 -0600 Subject: [PATCH] more test repairs original commit: 5a93e8c5e00f8aee90e20583fbe2d1fa22ca0443 --- collects/tests/net/encoders.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/net/encoders.rkt b/collects/tests/net/encoders.rkt index b32bfc8b01..43f77399d7 100644 --- a/collects/tests/net/encoders.rkt +++ b/collects/tests/net/encoders.rkt @@ -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.rkt") + (bytes-append (with-input-from-file (build-path dir "net.rktl") (lambda () (read-bytes 500))) #"xxx") ;; CRLF: (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))) #"\r\n")))) @@ -61,7 +61,7 @@ ;; check 1/4 of the files, randomly (let ([p (build-path dir f)]) (and (zero? (random 4)) - (not (regexp-match #rx"^flat.*\\.rkt$" + (not (regexp-match #rx"^flat.*\\.rktl$" (path-element->string f))) (file-exists? p) p)))