commit 63427f262e129ee84b43d492f4159058480ad8a5 parent 283bcc6ff584816a8390cd44f1f1d6061a20f057 Author: Eli Barzilay <eli@barzilay.org> Date: Sun, 6 May 2012 05:53:19 -0400 Streamline all scribble tests. original commit: 36394500e552b1f00fca97b2e99fc674cd3a5857 Diffstat:
| M | collects/tests/scribble/main.rkt | | | 8 | +++++--- |
| M | collects/tests/scribble/render.rkt | | | 35 | ++++++++++++++++++----------------- |
| R | collects/tests/scribble/collect.rkt -> collects/tests/scribble/text-collect.rkt | | | 0 | |
| M | collects/tests/scribble/xref.rkt | | | 32 | +++++++++++++++----------------- |
4 files changed, 38 insertions(+), 37 deletions(-)
diff --git a/collects/tests/scribble/main.rkt b/collects/tests/scribble/main.rkt @@ -1,11 +1,13 @@ #lang racket/base (require tests/eli-tester - "reader.rkt" "collect.rkt" "text-lang.rkt" "text-wrap.rkt" - "docs.rkt") + "reader.rkt" "text-collect.rkt" "text-lang.rkt" "text-wrap.rkt" + "docs.rkt" "render.rkt" "xref.rkt") (test do (reader-tests) do (begin/collect-tests) do (text-lang-tests) do (wrap-tests) - do (docs-tests)) + do (docs-tests) + do (render-tests) + do (xref-tests)) diff --git a/collects/tests/scribble/render.rkt b/collects/tests/scribble/render.rkt @@ -2,21 +2,22 @@ (require scribble/render scribble/text-render scribble/core - racket/file) - -(render (list (part #f - null - (list "Render") - (style #f null) - null - (list (paragraph (style #f null) "The content.")) - null)) - (list "example") - #:render-mixin render-mixin) - -(unless (string=? "Render\n\nThe content.\n" - (file->string "example.txt")) - (error "render test failed")) - -(delete-file "example.txt") + racket/file + tests/eli-tester) +(provide render-tests) +(module+ main (render-tests)) +(define (render-tests) + (dynamic-wind + (λ() (render (list (part #f + null + (list "Render") + (style #f null) + null + (list (paragraph (style #f null) "The content.")) + null)) + (list "example-for-render-test") + #:render-mixin render-mixin)) + (λ() (test (file->string "example-for-render-test.txt") + => "Render\n\nThe content.\n")) + (λ() (delete-file "example-for-render-test.txt")))) diff --git a/collects/tests/scribble/collect.rkt b/collects/tests/scribble/text-collect.rkt diff --git a/collects/tests/scribble/xref.rkt b/collects/tests/scribble/xref.rkt @@ -1,21 +1,19 @@ #lang racket/base (require scribble/xref racket/fasl - setup/dirs) - -(define xref (load-xref (list - (lambda () - (cadr - (call-with-input-file* - (build-path (find-doc-dir) - "reference" - "out.sxref") - fasl->s-exp)))))) - -(unless (equal? '(form ((lib "racket/contract/base.rkt") ->)) - (xref-binding->definition-tag - xref - (list '(lib "contract.rkt" "racket") '->) - #f)) - (error "failed")) + setup/dirs + tests/eli-tester) +(provide xref-tests) +(module+ main (xref-tests)) +(define (xref-tests) + (define xref + (load-xref (list + (lambda () + (cadr + (call-with-input-file* + (build-path (find-doc-dir) "reference" "out.sxref") + fasl->s-exp)))))) + (test (xref-binding->definition-tag + xref (list '(lib "contract.rkt" "racket") '->) #f) + => '(form ((lib "racket/contract/base.rkt") ->))))