#lang racket/base
(require pitfall/pdftest)

(define-runtime-path pic "assets/test.png")

(define (proc doc)
  [font doc "Helvetica-Bold"]
  [font-size doc 25]
  [text doc "Another fantastic pic" 100 100]
  [image doc pic 100 160 (hash 'width 412)])

; node's zlib.deflate makes smaller files, for some reason
; so don't compare file sizes in this case
(define-runtime-path this "test8rkt.pdf")
(make-doc this #f proc #:pdfkit #f) 

(define-runtime-path that "test8crkt.pdf")
(make-doc that #t proc #:pdfkit #f)
