adjusted test-docs-complete.rkt tests

This commit is contained in:
Robby Findler 2011-04-25 19:00:01 -05:00
parent 4cc0af90aa
commit 7701f75fb0
9 changed files with 22 additions and 46 deletions

View File

@ -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))

View File

@ -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))

View File

@ -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))

View File

@ -1,3 +0,0 @@
#lang racket/base
(require tests/utils/docs-complete)
(check-docs (quote scribblings/icons))

View File

@ -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))

View File

@ -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))

View File

@ -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"))

View File

@ -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))

View File

@ -1,4 +0,0 @@
#lang racket/base
(require tests/utils/docs-complete)
(check-docs (quote waterworld/wwdoc))
(check-docs (quote waterworld/waterworld))