suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Streamline all scribble tests.

Browse Source 
original commit: 36394500e552b1f00fca97b2e99fc674cd3a5857
This commit is contained in:
Eli Barzilay 2012-05-06 05:53:19 -04:00
parent 283bcc6ff5
commit 63427f262e
4 changed files with 38 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/scribble/main.rkt
View File

@ -1,11 +1,13 @@
#lang racket/base #lang racket/base
(require tests/eli-tester (require tests/eli-tester
"reader.rkt" "collect.rkt" "text-lang.rkt" "text-wrap.rkt" "reader.rkt" "text-collect.rkt" "text-lang.rkt" "text-wrap.rkt"
"docs.rkt") "docs.rkt" "render.rkt" "xref.rkt")
(test do (reader-tests) (test do (reader-tests)
do (begin/collect-tests) do (begin/collect-tests)
do (text-lang-tests) do (text-lang-tests)
do (wrap-tests) do (wrap-tests)
do (docs-tests)) do (docs-tests)
do (render-tests)
do (xref-tests))

23
collects/tests/scribble/render.rkt
View File

@ -2,21 +2,22 @@
(require scribble/render (require scribble/render
scribble/text-render scribble/text-render
scribble/core scribble/core
racket/file) racket/file
tests/eli-tester)
(render (list (part #f (provide render-tests)
(module+ main (render-tests))
(define (render-tests)
(dynamic-wind
(λ() (render (list (part #f
null null
(list "Render") (list "Render")
(style #f null) (style #f null)
null null
(list (paragraph (style #f null) "The content.")) (list (paragraph (style #f null) "The content."))
null)) null))
(list "example") (list "example-for-render-test")
#:render-mixin render-mixin) #:render-mixin render-mixin))
(λ() (test (file->string "example-for-render-test.txt")
(unless (string=? "Render\n\nThe content.\n" => "Render\n\nThe content.\n"))
(file->string "example.txt")) (λ() (delete-file "example-for-render-test.txt"))))
(error "render test failed"))
(delete-file "example.txt")

0
collects/tests/scribble/collect.rkt → collects/tests/scribble/text-collect.rkt
View File

24
collects/tests/scribble/xref.rkt
View File

@ -1,21 +1,19 @@
#lang racket/base #lang racket/base
(require scribble/xref (require scribble/xref
racket/fasl racket/fasl
setup/dirs) setup/dirs
tests/eli-tester)
(define xref (load-xref (list (provide xref-tests)
(module+ main (xref-tests))
(define (xref-tests)
(define xref
(load-xref (list
(lambda () (lambda ()
(cadr (cadr
(call-with-input-file* (call-with-input-file*
(build-path (find-doc-dir) (build-path (find-doc-dir) "reference" "out.sxref")
"reference"
"out.sxref")
fasl->s-exp)))))) fasl->s-exp))))))
(test (xref-binding->definition-tag
(unless (equal? '(form ((lib "racket/contract/base.rkt") ->)) xref (list '(lib "contract.rkt" "racket") '->) #f)
(xref-binding->definition-tag => '(form ((lib "racket/contract/base.rkt") ->))))
xref
(list '(lib "contract.rkt" "racket") '->)
#f))
(error "failed"))