084f1dcea7
Looks like it's not making any changes in the current tests (which use the text renderer), but with words that are longer than the width the old version would stop wrapping afetr these words. Added a test file that fails with that and succeeds with the new one. If anyone cares about this, it's easy to make hyphenate words that are too long for a line. (Also fixed some redundant frustration in the bib test...)
48 lines
2.0 KiB
Racket
48 lines
2.0 KiB
Racket
#lang racket/base
|
|
|
|
;; Use text renderer to check some Scribble functionality
|
|
|
|
(require scribble/base-render (prefix-in text: scribble/text-render)
|
|
racket/file racket/class racket/runtime-path tests/eli-tester)
|
|
|
|
(define-runtime-path source-dir "docs")
|
|
(define work-dir (build-path (find-system-path 'temp-dir)
|
|
"scribble-docs-tests"))
|
|
|
|
(define (build-text-doc src-file dest-file)
|
|
(let* ([renderer (new (text:render-mixin render%) [dest-dir work-dir])]
|
|
[docs (list (dynamic-require src-file 'doc))]
|
|
[fns (list (build-path work-dir dest-file))]
|
|
[fp (send renderer traverse docs fns)]
|
|
[info (send renderer collect docs fns fp)]
|
|
[r-info (send renderer resolve docs fns info)])
|
|
(send renderer render docs fns r-info)))
|
|
|
|
(provide docs-tests)
|
|
(module+ main (docs-tests))
|
|
(define (docs-tests)
|
|
(when (or (file-exists? work-dir) (directory-exists? work-dir))
|
|
(delete-directory/files work-dir))
|
|
(dynamic-wind
|
|
(λ() (make-directory work-dir))
|
|
(λ()
|
|
(define files (map path-element->string (directory-list source-dir)))
|
|
(test do
|
|
(for ([scrbl (in-list files)]
|
|
#:when (regexp-match? #rx"\\.scrbl$" scrbl)
|
|
[txt (in-value (regexp-replace #rx"\\.scrbl$" scrbl ".txt"))]
|
|
#:when (member txt files))
|
|
;; (printf "Testing ~s -> ~s\n" scrbl txt)
|
|
(define src-file (build-path source-dir scrbl))
|
|
(define expect-file (build-path source-dir txt))
|
|
(define generated-file (build-path work-dir "gen.txt"))
|
|
(define (contents file)
|
|
(regexp-replace #rx"\n+$" (file->string file) ""))
|
|
(build-text-doc src-file "gen.txt")
|
|
(test #:failure-message
|
|
(format
|
|
"mismatch for: \"~a\", expected text in: \"~a\", got:\n~a"
|
|
scrbl txt (contents generated-file))
|
|
(string=? (contents expect-file) (contents generated-file))))))
|
|
(λ() (delete-directory/files work-dir))))
|