diff --git a/pitfall/pitfall/alltest.rkt b/pitfall/pitfall/alltest.rkt index f4e33726..9586d591 100644 --- a/pitfall/pitfall/alltest.rkt +++ b/pitfall/pitfall/alltest.rkt @@ -5,6 +5,7 @@ pitfall/test/test2 pitfall/test/test3 pitfall/test/test4 + pitfall/test/test5 pitfall/test/test6 pitfall/page-test (submod pitfall/zlib test))) \ No newline at end of file diff --git a/pitfall/pitfall/test/test5.rkt b/pitfall/pitfall/test/test5.rkt index ac7e3ed3..a11b6413 100644 --- a/pitfall/pitfall/test/test5.rkt +++ b/pitfall/pitfall/test/test5.rkt @@ -1,11 +1,13 @@ #lang pitfall/pdftest +(define-runtime-path death "death.png") + (define (proc doc) (send* doc [font "Times-Italic"] [fontSize 25] [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") (make-doc this #f proc #:test #t)