refac
parent
459ec3600b
commit
babd03bd45
@ -1,9 +1,4 @@
|
||||
#lang racket/base
|
||||
(require quadwriter
|
||||
"paths-to-test.rkt")
|
||||
(require quadwriter "paths-to-test.rkt")
|
||||
|
||||
(for ([test-path (in-list (test-paths))])
|
||||
(define-values (dir name _) (split-path test-path))
|
||||
(displayln (path->string name))
|
||||
(time (parameterize ([quadwriter-test-mode #t])
|
||||
(render-pdf (dynamic-require test-path 'doc) (test-pdf-name test-path) test-path))))
|
||||
(for-each update-test-pdf (find-test-paths))
|
||||
|
Loading…
Reference in New Issue