You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.8 KiB
Racket
65 lines
1.8 KiB
Racket
#lang racket/base
|
|
|
|
(require
|
|
(for-syntax racket/base)
|
|
"helper.rkt"
|
|
"param.rkt"
|
|
"struct.rkt"
|
|
sugar/debug
|
|
racket/class
|
|
racket/file
|
|
racket/match
|
|
racket/string
|
|
racket/format
|
|
racket/contract
|
|
racket/list
|
|
racket/port
|
|
racket/function
|
|
br/define
|
|
sugar/unstable/class
|
|
sugar/unstable/js
|
|
sugar/unstable/dict
|
|
sugar/unstable/stub
|
|
sugar/unstable/port
|
|
sugar/unstable/contract
|
|
describe
|
|
"check-pdf.rkt")
|
|
|
|
(provide check-copy-equal? check-pdfkit? make-doc)
|
|
|
|
(test-mode #t)
|
|
|
|
(require rackunit racket/runtime-path pitfall/document racket/class)
|
|
(provide (all-from-out rackunit racket/runtime-path pitfall/document racket/class))
|
|
|
|
(define (this->control this) (path-add-extension this #"" #" copy."))
|
|
|
|
(define (this->pdfkit-control this)
|
|
(string->path (string-replace ((if (string? this) values path->string) this) "rkt." ".")))
|
|
|
|
(module+ test
|
|
(require rackunit)
|
|
(check-equal? (this->pdfkit-control (string->path "test1crkt.pdf")) (string->path "test1c.pdf")))
|
|
|
|
|
|
(define-macro (check-copy-equal? THIS)
|
|
(syntax/loc caller-stx (check-true (for/and ([b1 (in-input-port-bytes (open-input-file THIS))]
|
|
[b2 (in-input-port-bytes (open-input-file (this->control THIS)))])
|
|
(equal? b1 b2)))))
|
|
|
|
|
|
(define-syntax-rule (check-pdfkit? this)
|
|
(check-equal? (file-size this) (file-size (this->pdfkit-control this))))
|
|
|
|
(define (make-doc ps [compress? #false] [proc (λ (doc) doc)] #:test [test? #t] #:pdfkit [pdfkit? #t])
|
|
(time
|
|
(let ()
|
|
(define doc (make-object PDFDocument (hash 'compress compress?)))
|
|
(send doc pipe (open-output-file ps #:exists 'replace))
|
|
(proc doc)
|
|
(send doc end)))
|
|
(when test?
|
|
(check-pdfs-equal? ps (this->control ps))
|
|
(when pdfkit?
|
|
(check-pdfs-equal? ps (this->pdfkit-control ps)))))
|