update alltest

main
Matthew Butterick 7 years ago
parent 73b6e6df8f
commit ad086a8af1

@ -5,6 +5,7 @@
pitfall/test/test2 pitfall/test/test2
pitfall/test/test3 pitfall/test/test3
pitfall/test/test4 pitfall/test/test4
pitfall/test/test5
pitfall/test/test6 pitfall/test/test6
pitfall/page-test pitfall/page-test
(submod pitfall/zlib test))) (submod pitfall/zlib test)))

@ -1,11 +1,13 @@
#lang pitfall/pdftest #lang pitfall/pdftest
(define-runtime-path death "death.png")
(define (proc doc) (define (proc doc)
(send* doc (send* doc
[font "Times-Italic"] [font "Times-Italic"]
[fontSize 25] [fontSize 25]
[text "Some fantastic text!" 100 100 (hash 'lineBreak #f)] [text "Some fantastic text!" 100 100 (hash 'lineBreak #f)]
[image "death.png" 100 160 (hash 'width 412)])) [image death 100 160 (hash 'width 412)]))
(define-runtime-path this "test5rkt.pdf") (define-runtime-path this "test5rkt.pdf")
(make-doc this #f proc #:test #t) (make-doc this #f proc #:test #t)

Loading…
Cancel
Save