adjusted test-docs-complete.rkt tests
This commit is contained in:
parent
4cc0af90aa
commit
7701f75fb0
|
@ -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))
|
||||
|
|
|
@ -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))
|
|
@ -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))
|
||||
|
|
|
@ -1,3 +0,0 @@
|
|||
#lang racket/base
|
||||
(require tests/utils/docs-complete)
|
||||
(check-docs (quote scribblings/icons))
|
|
@ -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))
|
|
@ -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))
|
||||
|
|
|
@ -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"))
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -1,4 +0,0 @@
|
|||
#lang racket/base
|
||||
(require tests/utils/docs-complete)
|
||||
(check-docs (quote waterworld/wwdoc))
|
||||
(check-docs (quote waterworld/waterworld))
|
Loading…
Reference in New Issue
Block a user