|
|
|
@ -1,5 +1,5 @@
|
|
|
|
|
#lang debug racket
|
|
|
|
|
(require rackunit (prefix-in zlib: pitfall/zlib))
|
|
|
|
|
(require rackunit (prefix-in zlib: pitfall/zlib) fontland/table/cff/cff-top)
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
|
|
|
|
(define (xref-offset bs)
|
|
|
|
@ -140,6 +140,37 @@
|
|
|
|
|
(define-simple-check (check-pdfs-equal? ps1 ps2)
|
|
|
|
|
(dict-compare ps1 ps2))
|
|
|
|
|
|
|
|
|
|
(define-simple-check (check-font-subsets-equal? f1 f2)
|
|
|
|
|
(define misses null)
|
|
|
|
|
|
|
|
|
|
(define (dump val)
|
|
|
|
|
(cond
|
|
|
|
|
[(promise? val) 'promise-omitted]
|
|
|
|
|
[(dict? val)
|
|
|
|
|
(for/list ([(k v) (in-dict (sort (dict->list val) #:key car symbol<?))])
|
|
|
|
|
(list k (dump v)))]
|
|
|
|
|
[(list? val) (map dump val)]
|
|
|
|
|
[else val]))
|
|
|
|
|
|
|
|
|
|
(define (cmp v1 v2)
|
|
|
|
|
(cond
|
|
|
|
|
[(and (list? v1) (list? v2))
|
|
|
|
|
(and
|
|
|
|
|
(= (length v1) (length v2))
|
|
|
|
|
(for/and ([x1 (in-list v1)]
|
|
|
|
|
[x2 (in-list v2)])
|
|
|
|
|
(unless (cmp x1 x2)
|
|
|
|
|
(set! misses (cons (list v1 x1 v2 x2) misses)))))]
|
|
|
|
|
[else (equal? v1 v2)]))
|
|
|
|
|
|
|
|
|
|
(define ibs1 (dict-ref (dict-ref (pdf->dict f1) 8) 'stream))
|
|
|
|
|
(define cfftop1 (dump (send CFFTop decode (open-input-bytes ibs1))))
|
|
|
|
|
(define ibs2 (dict-ref (dict-ref (pdf->dict f2) 8) 'stream))
|
|
|
|
|
(define cfftop2 (dump (send CFFTop decode (open-input-bytes ibs2))))
|
|
|
|
|
|
|
|
|
|
(cmp cfftop1 cfftop2)
|
|
|
|
|
(check-true (null? misses)))
|
|
|
|
|
|
|
|
|
|
#;(module+ main
|
|
|
|
|
(for ([p (in-directory)]
|
|
|
|
|
#:when (path-has-extension? p #"pdf"))
|
|
|
|
|