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

fix some DrDr tests

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-29 19:55:39 -06:00
parent ea880541de
commit f20d3db75f
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/meta/props
View File

@ -644,6 +644,7 @@ path/s is either such a string or a list of them.
"collects/ffi/examples/use-xmmsctrl.rkt" drdr:command-line "" "collects/ffi/examples/use-xmmsctrl.rkt" drdr:command-line ""
"collects/ffi/examples/use-xosd.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/use-xosd.rkt" drdr:command-line "mzc ~s"
"collects/ffi/magick.rkt" drdr:command-line "mzc ~s" "collects/ffi/magick.rkt" drdr:command-line "mzc ~s"
"collects/ffi/objc.rkt" drdr:command-line "mzc ~s"
"collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s" "collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s"
"collects/ffi/private/objc-doc-unsafe.rkt" drdr:command-line "mzc ~s" "collects/ffi/private/objc-doc-unsafe.rkt" drdr:command-line "mzc ~s"
"collects/ffi/sndfile.rkt" drdr:command-line "mzc ~s" "collects/ffi/sndfile.rkt" drdr:command-line "mzc ~s"

2
collects/tests/file/gzip.rkt
View File

@ -23,7 +23,7 @@
(define (test-big-file) (define (test-big-file)
(define big-file (define big-file
(build-path (collection-path "drscheme/private") "unit.ss")) (build-path (collection-path "drscheme/private") "unit.rkt"))
;; should be around 6 times smaller ;; should be around 6 times smaller
(id* (file->bytes big-file) 4)) (id* (file->bytes big-file) 4))

10
collects/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" "mzscheme")]) (let ([dir (collection-path "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.ss") (bytes-append (with-input-from-file (build-path dir "net.rkt")
(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.ss") (with-input-from-file (build-path dir "net.rkt")
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"\r\n")))) #"\r\n"))))
@ -55,13 +55,13 @@
(open-input-bytes tricky-string) (open-input-bytes tricky-string)
line-rx max-w)) line-rx max-w))
tricky-strings) tricky-strings)
(let* ([dir (collection-path "tests" "mzscheme")] (let* ([dir (collection-path "tests" "racket")]
[files (filter-map [files (filter-map
(lambda (f) (lambda (f)
;; 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.*\\.ss$" (not (regexp-match #rx"^flat.*\\.rkt$"
(path-element->string f))) (path-element->string f)))
(file-exists? p) (file-exists? p)
p))) p)))