From ca457b00520ada0aba50a83588440b4d9f532960 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 25 Nov 2011 15:12:28 -0600 Subject: [PATCH] add some debugging to see if I get more useful info for the module language test intermeittent failure --- collects/framework/private/color.rkt | 5 ++++- collects/meta/props | 6 +++--- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt index 22639fcb9f..775e05087c 100644 --- a/collects/framework/private/color.rkt +++ b/collects/framework/private/color.rkt @@ -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 diff --git a/collects/meta/props b/collects/meta/props index 7a6981fbaf..65ac89918a 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -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")