You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
typesetting/quad/qtest/all.rkt

17 lines
681 B
Racket

#lang racket
(require quadwriter
pitfall/check-pdf
racket/runtime-path
"paths-to-test.rkt")
5 years ago
;; `racket -l qtest/all`
5 years ago
(for ([test-path (in-list (find-test-paths))])
(define pdf-path (path-replace-extension test-path #".pdf"))
(define-values (dir name _) (split-path test-path))
(displayln (path->string name))
(check-pdfs-equal? (time (parameterize ([quadwriter-test-mode #t]
[current-output-port (open-output-nowhere)])
(render-pdf (dynamic-require test-path 'doc) pdf-path test-path)
pdf-path))
(test-pdf-name test-path)))