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-xosd.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/private/objc-doc-unsafe.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 big-file
(build-path (collection-path "drscheme/private") "unit.ss"))
(build-path (collection-path "drscheme/private") "unit.rkt"))
;; should be around 6 times smaller
(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)
(define tricky-strings
(let ([dir (collection-path "tests" "mzscheme")])
(let ([dir (collection-path "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.ss")
(bytes-append (with-input-from-file (build-path dir "net.rkt")
(lambda () (read-bytes 500)))
#"xxx")
;; CRLF:
(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)))
#"\r\n"))))
@ -55,13 +55,13 @@
(open-input-bytes tricky-string)
line-rx max-w))
tricky-strings)
(let* ([dir (collection-path "tests" "mzscheme")]
(let* ([dir (collection-path "tests" "racket")]
[files (filter-map
(lambda (f)
;; check 1/4 of the files, randomly
(let ([p (build-path dir f)])
(and (zero? (random 4))
(not (regexp-match #rx"^flat.*\\.ss$"
(not (regexp-match #rx"^flat.*\\.rkt$"
(path-element->string f)))
(file-exists? p)
p)))