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

Improve the error message from scribble text rendering tests.

Browse Source
This commit is contained in:
Eli Barzilay 2011-03-15 11:45:40 -04:00
parent 28be0c6e89
commit 09698c800c
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/tests/scribble/docs.rkt
View File

@ -18,11 +18,6 @@
[r-info (send renderer resolve docs fns info)])
(send renderer render docs fns r-info)))
(define (check-text-build src-file expect-file)
(build-text-doc src-file "gen.txt")
(define (contents file) (regexp-replace #rx"\n+$" (file->string file) ""))
(string=? (contents expect-file) (contents (build-path work-dir "gen.txt"))))
(provide docs-tests)
(define (docs-tests)
(when (or (file-exists? work-dir) (directory-exists? work-dir))
@ -36,8 +31,14 @@
[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 from: \"~a\" expected: \"~a\"" scrbl txt)
(check-text-build (build-path source-dir scrbl)
(build-path source-dir txt)))))
(format "mismatch for: \"~a\", expected text in: \"~a\", got:\n~a"
scrbl txt (contents generated-file))
(string=? (contents expect-file) (contents generated-file)))))
(lambda () (delete-directory/files work-dir))))