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

more test repairs

Browse Source
This commit is contained in:
Matthew Flatt 2010-05-02 08:31:12 -06:00
parent 424f7b6659
commit 5a93e8c5e0
7 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/meta/props
View File

@ -598,7 +598,7 @@ path/s is either such a string or a list of them.
"collects/drscheme/private/tracing.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/private/tracing.rkt" drdr:command-line "mred-text -t ~s"
"collects/drscheme/private/unit.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/private/unit.rkt" drdr:command-line "mred-text -t ~s"
"collects/drscheme/sprof.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/sprof.rkt" drdr:command-line "mred-text -t ~s"
"collects/drscheme/syncheck-drscheme-button.rkt" drdr:command-line "mred-text ~s" "collects/drscheme/syncheck-drracket-button.rkt" drdr:command-line "mred-text ~s"
"collects/drscheme/syncheck.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/syncheck.rkt" drdr:command-line "mred-text -t ~s"
"collects/drscheme/tool-lib.rkt" drdr:command-line "mzc ~s" "collects/drscheme/tool-lib.rkt" drdr:command-line "mzc ~s"
"collects/dynext" responsible (mflatt) "collects/dynext" responsible (mflatt)
@ -1454,10 +1454,10 @@ path/s is either such a string or a list of them.
"collects/tests/racket/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s"
"collects/tests/racket/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s"
"collects/tests/racket/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s"
"collects/tests/racket/benchmarks/mz/expand-class.scm" drdr:command-line "racket -f ~s" "collects/tests/racket/benchmarks/mz/expand-class.rktl" drdr:command-line "racket -f ~s"
"collects/tests/racket/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" "collects/tests/racket/benchmarks/mz/parsing.rktl" drdr:command-line "mred -f ~s"
"collects/tests/racket/benchmarks/mz/redsem.scm" drdr:command-line "racket -f ~s -- --skip-struct-test" "collects/tests/racket/benchmarks/mz/redsem.rkt" drdr:command-line "racket -f ~s -- --skip-struct-test"
"collects/tests/racket/benchmarks/mz/ssax.scm" drdr:command-line "racket -f ~s" "collects/tests/racket/benchmarks/mz/ssax.rktl" drdr:command-line "racket -f ~s"
"collects/tests/racket/benchmarks/rx/auto.rkt" drdr:command-line "racket -qt ~s -- racket simple" drdr:timeout 600 "collects/tests/racket/benchmarks/rx/auto.rkt" drdr:command-line "racket -qt ~s -- racket simple" drdr:timeout 600
"collects/tests/racket/benchmarks/rx/pcre.rkt" drdr:command-line "racket ~s \"mz\"\"scheme\"" "collects/tests/racket/benchmarks/rx/pcre.rkt" drdr:command-line "racket ~s \"mz\"\"scheme\""
"collects/tests/racket/benchmarks/shootout/ackermann.rkt" drdr:command-line "racket -t ~s -- 10" "collects/tests/racket/benchmarks/shootout/ackermann.rkt" drdr:command-line "racket -t ~s -- 10"

6
collects/tests/net/encoders.rkt
View File

@ -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.rkt") (bytes-append (with-input-from-file (build-path dir "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.rkt") (with-input-from-file (build-path dir "net.rktl")
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"\r\n")))) #"\r\n"))))
@ -61,7 +61,7 @@
;; 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.*\\.rkt$" (not (regexp-match #rx"^flat.*\\.rktl$"
(path-element->string f))) (path-element->string f)))
(file-exists? p) (file-exists? p)
p))) p)))

4
collects/tests/racket/benchmarks/mz/expand-class.scm → collects/tests/racket/benchmarks/mz/expand-class.rktl
View File

@ -1,7 +1,7 @@
(let ([dir (build-path (collection-path "scheme") (let ([dir (build-path (collection-path "racket")
"private")]) "private")])
(with-input-from-file (build-path dir "class-internal.ss") (with-input-from-file (build-path dir "class-internal.rkt")
(lambda () (lambda ()
(parameterize ([current-load-relative-directory dir] (parameterize ([current-load-relative-directory dir]
[read-accept-reader #t]) [read-accept-reader #t])

0
collects/tests/racket/benchmarks/mz/parsing.scm → collects/tests/racket/benchmarks/mz/parsing.rktl
View File

0
collects/tests/racket/benchmarks/mz/redsem.scm → collects/tests/racket/benchmarks/mz/redsem.rkt
View File

0
collects/tests/racket/benchmarks/mz/ssax.scm → collects/tests/racket/benchmarks/mz/ssax.rktl
View File

4
collects/tests/racket/filelib.rktl
View File

@ -64,9 +64,9 @@
(test #f null? (member "filelib.rktl" rel)) (test #f null? (member "filelib.rktl" rel))
(test #f null? (member (build-path (current-directory) "filelib.rktl") abs)) (test #f null? (member (build-path (current-directory) "filelib.rktl") abs))
(test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f)))) (test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rktl$" (path->string f))))
(test (list (build-path (current-directory) "filelib.rktl")) (test (list (build-path (current-directory) "filelib.rktl"))
find-files (lambda (f) (regexp-match "filelib[.]rkt$" (path->string f))) find-files (lambda (f) (regexp-match "filelib[.]rktl$" (path->string f)))
(current-directory)) (current-directory))
(let ([rel2 (fold-files (lambda (name kind accum) (let ([rel2 (fold-files (lambda (name kind accum)