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

add some debugging to see if I get more useful info for the module language test intermeittent failure

Browse Source
This commit is contained in:
Robby Findler 2011-11-25 15:12:28 -06:00
parent d672a0699e
commit ca457b0052
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/color.rkt
View File

@ -119,7 +119,7 @@ added get-regions
;; Paren-matching
parens
)
#:mutable)
#:mutable #:transparent)
;; The lexer
(define get-token #f)
@ -448,6 +448,9 @@ added get-regions
(coroutine
(λ (enable-suspend)
(parameterize ((port-count-lines-enabled #t))
(when (getenv "PLTDRDRTEST")
(printf "colorer-driver: lexer-states ~s\n" lexer-states)
(printf "colorer-driver: text ~s\n" (send this get-text)))
(for-each
(lambda (ls)
(re-tokenize ls

6
collects/meta/props
View File

@ -1425,7 +1425,7 @@ path/s is either such a string or a list of them.
"collects/tests/drracket/leaky-frame.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/memory-log.rkt" drdr:command-line (gracket *)
"collects/tests/drracket/module-lang-test-utils.rkt" drdr:command-line (gracket-text "-t" *)
"collects/tests/drracket/module-lang-test.rkt" drdr:command-line (racket "-j" *) drdr:timeout 300
"collects/tests/drracket/module-lang-test.rkt" drdr:command-line (racket "-j" "-e" "(void (putenv \"PLTDRDRTEST\" \"yes\"))" "-t" *) drdr:timeout 300
"collects/tests/drracket/randomly-click-language-dialog.rkt" drdr:command-line (mzc *)
"collects/tests/drracket/randomly-click-preferences.rkt" drdr:command-line (mzc *)
"collects/tests/drracket/randomly-click.rkt" drdr:command-line #f
@ -1608,8 +1608,8 @@ path/s is either such a string or a list of them.
"collects/tests/racket/benchmarks/shootout/cheapconcurrency.rkt" drdr:command-line (racket "-t" * "--" "10")
"collects/tests/racket/benchmarks/shootout/fannkuch-redux.rkt" drdr:command-line (racket "-t" * "--" "4")
"collects/tests/racket/benchmarks/shootout/fannkuch.rkt" drdr:command-line (racket "-t" * "--" "4")
"collects/tests/racket/benchmarks/shootout/fasta.rkt" drdr:command-line (racket "-t" * "--" "10")
"collects/tests/racket/benchmarks/shootout/fasta-new.rkt" drdr:command-line (racket "-t" * "--" "10")
"collects/tests/racket/benchmarks/shootout/fasta.rkt" drdr:command-line (racket "-t" * "--" "10")
"collects/tests/racket/benchmarks/shootout/hash.rkt" drdr:command-line (racket "-t" * "--" "10")
"collects/tests/racket/benchmarks/shootout/hash2.rkt" drdr:command-line (racket "-t" * "--" "10")
"collects/tests/racket/benchmarks/shootout/mandelbrot-futures.rkt" drdr:command-line (racket "-t" * "--" "15")
@ -1630,8 +1630,8 @@ path/s is either such a string or a list of them.
"collects/tests/racket/benchmarks/shootout/recursive.rkt" drdr:command-line (racket "-t" * "--" "2")
"collects/tests/racket/benchmarks/shootout/run.rkt" drdr:command-line #f
"collects/tests/racket/benchmarks/shootout/spectralnorm-generic.rkt" drdr:command-line (racket "-t" * "--" "25")
"collects/tests/racket/benchmarks/shootout/spectralnorm.rkt" drdr:command-line (racket "-t" * "--" "25")
"collects/tests/racket/benchmarks/shootout/spectralnorm-par.rkt" drdr:command-line (racket "-t" * "--" "25")
"collects/tests/racket/benchmarks/shootout/spectralnorm.rkt" drdr:command-line (racket "-t" * "--" "25")
"collects/tests/racket/benchmarks/shootout/spellcheck.rkt" drdr:command-line (mzc *)
"collects/tests/racket/benchmarks/shootout/strcat.rkt" drdr:command-line (racket "-t" * "--" "25")
"collects/tests/racket/benchmarks/shootout/thread-ring.rkt" drdr:command-line (racket "-t" * "--" "25")