#lang pitfall/pdftest

(define-runtime-path test-jpeg "assets/test.jpeg")

(define (proc doc)
  (send* doc
  [font "Times-Italic"]
  [fontSize 25]
  [text "Here comes a JPEG!" 100 100 (hash 'lineBreak #f)]
  [image test-jpeg 100 160 (hash 'width 412)]))

(define-runtime-path this "test7rkt.pdf")
(make-doc this #f proc)

(define-runtime-path that "test7crkt.pdf")
(make-doc that #t proc)