diff --git a/collects/lang/tests/test-docs-complete.rkt b/collects/lang/tests/test-docs-complete.rkt index 3d3f6706ac..ea7dfb6172 100644 --- a/collects/lang/tests/test-docs-complete.rkt +++ b/collects/lang/tests/test-docs-complete.rkt @@ -2,21 +2,14 @@ (require tests/utils/docs-complete) (check-docs (quote lang/test-error)) (check-docs (quote lang/run-teaching-program)) -(check-docs (quote lang/r5rs)) (check-docs (quote lang/prim)) (check-docs (quote lang/posn)) (check-docs (quote lang/plt-pretty-big)) (check-docs (quote lang/plt-pretty-big-text)) (check-docs (quote lang/imageeq)) -(check-docs (quote lang/htdp-reader)) (check-docs (quote lang/htdp-intermediate)) -(check-docs (quote lang/htdp-intermediate-reader)) (check-docs (quote lang/htdp-intermediate-lambda)) -(check-docs (quote lang/htdp-intermediate-lambda-reader)) (check-docs (quote lang/htdp-beginner)) -(check-docs (quote lang/htdp-beginner-reader)) (check-docs (quote lang/htdp-beginner-abbr)) -(check-docs (quote lang/htdp-beginner-abbr-reader)) (check-docs (quote lang/htdp-advanced)) -(check-docs (quote lang/htdp-advanced-reader)) (check-docs (quote lang/error)) diff --git a/collects/meta/tests/test-docs-complete.rkt b/collects/meta/tests/test-docs-complete.rkt deleted file mode 100644 index 6a6a7c6a72..0000000000 --- a/collects/meta/tests/test-docs-complete.rkt +++ /dev/null @@ -1,7 +0,0 @@ -#lang racket/base -(require tests/utils/docs-complete) -(check-docs (quote meta/specs)) -(check-docs (quote meta/spec-reader)) -(check-docs (quote meta/dist-specs)) -(check-docs (quote meta/checker)) -(check-docs (quote meta/check-dists)) diff --git a/collects/rackunit/tests/test-docs-complete.rkt b/collects/rackunit/tests/test-docs-complete.rkt index 0498fe5527..74307768b5 100644 --- a/collects/rackunit/tests/test-docs-complete.rkt +++ b/collects/rackunit/tests/test-docs-complete.rkt @@ -1,6 +1,5 @@ #lang racket/base (require tests/utils/docs-complete) -(check-docs (quote rackunit/tool)) (check-docs (quote rackunit/text-ui)) (check-docs (quote rackunit)) (check-docs (quote rackunit/gui)) diff --git a/collects/scribblings/tests/test-docs-complete.rkt b/collects/scribblings/tests/test-docs-complete.rkt deleted file mode 100644 index e692e689d6..0000000000 --- a/collects/scribblings/tests/test-docs-complete.rkt +++ /dev/null @@ -1,3 +0,0 @@ -#lang racket/base -(require tests/utils/docs-complete) -(check-docs (quote scribblings/icons)) diff --git a/collects/sirmail/tests/test-docs-complete.rkt b/collects/sirmail/tests/test-docs-complete.rkt deleted file mode 100644 index 65eefe9381..0000000000 --- a/collects/sirmail/tests/test-docs-complete.rkt +++ /dev/null @@ -1,14 +0,0 @@ -#lang racket/base -(require tests/utils/docs-complete) -(check-docs (quote sirmail/utilr)) -(check-docs (quote sirmail/spell)) -(check-docs (quote sirmail/sirmails)) -(check-docs (quote sirmail/sirmailr)) -(check-docs (quote sirmail/sirmail)) -(check-docs (quote sirmail/sendr)) -(check-docs (quote sirmail/recover)) -(check-docs (quote sirmail/readr)) -(check-docs (quote sirmail/pref)) -(check-docs (quote sirmail/optionr)) -(check-docs (quote sirmail)) -(check-docs (quote sirmail/folderr)) diff --git a/collects/srfi/tests/test-docs-complete.rkt b/collects/srfi/tests/test-docs-complete.rkt index 3eba87429e..62abcefb58 100644 --- a/collects/srfi/tests/test-docs-complete.rkt +++ b/collects/srfi/tests/test-docs-complete.rkt @@ -1,6 +1,5 @@ #lang racket/base (require tests/utils/docs-complete) -(check-docs (quote srfi/provider)) (check-docs (quote srfi/optional)) (check-docs (quote srfi/features)) (check-docs (quote srfi/98)) diff --git a/collects/test-engine/racket-gui.rkt b/collects/test-engine/racket-gui.rkt index d0d7fef8b1..2f92abc491 100644 --- a/collects/test-engine/racket-gui.rkt +++ b/collects/test-engine/racket-gui.rkt @@ -34,6 +34,7 @@ [else (format "~v" value)])) (define (test*) + (printf "test*\n") (run-tests) (pop-up)) @@ -50,6 +51,7 @@ (and test-info (send test-info refine-display-class test-display%) (send test-info setup-display #f #f) + (printf "calling summarize-results method\n") (send test-info summarize-results (current-output-port)))))) (provide test format-value make-formatter (all-from-out "scheme-tests.ss")) diff --git a/collects/tests/utils/docs-complete.rkt b/collects/tests/utils/docs-complete.rkt index 3c4b65a8a2..a1e03838f1 100644 --- a/collects/tests/utils/docs-complete.rkt +++ b/collects/tests/utils/docs-complete.rkt @@ -19,15 +19,26 @@ (define lib0 (list-ref pieces 0)) (define file (last pieces)) (define lib1-n (reverse (cdr (reverse (cdr pieces))))) + (define (pick-one . args) + (for/or ([fmt (in-list args)]) + (define pth + (apply build-path + (append (list (collection-path lib0)) + lib1-n + (list "compiled" + (format fmt file))))) + (and (file-exists? pth) + pth))) (define-values (val-info stx-info) - (module-compiled-exports - (parameterize ([read-accept-compiled #t]) - (call-with-input-file (apply build-path - (append (list (collection-path lib0)) - lib1-n - (list "compiled" - (format "~a_rkt.zo" file)))) - read)))) + (let/ec k + (module-compiled-exports + (parameterize ([read-accept-compiled #t]) + (define file (pick-one "~a_rkt.zo" + "~a_ss.zo" + "~a_scm.zo")) + (if file + (call-with-input-file file read) + (k '() '())))))) (define (get n info) (define a (assoc n info)) @@ -62,6 +73,6 @@ [else (fprintf port "\n ") 2]))]) - (pretty-write undocumented-exports)))) + (pretty-write undocumented-exports (current-error-port))))) (define xref (load-collections-xref)) diff --git a/collects/waterworld/tests/test-docs-complete.rkt b/collects/waterworld/tests/test-docs-complete.rkt deleted file mode 100644 index 8bc2f5cddd..0000000000 --- a/collects/waterworld/tests/test-docs-complete.rkt +++ /dev/null @@ -1,4 +0,0 @@ -#lang racket/base -(require tests/utils/docs-complete) -(check-docs (quote waterworld/wwdoc)) -(check-docs (quote waterworld/waterworld))