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.
|
|
|
|
#lang racket
|
|
|
|
|
(require quadwriter
|
|
|
|
|
pitfall/check-pdf
|
|
|
|
|
racket/runtime-path
|
|
|
|
|
"paths-to-test.rkt")
|
|
|
|
|
|
|
|
|
|
;; `racket -l qtest/all`
|
|
|
|
|
|
|
|
|
|
(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)))
|
