vectorize tests

main
Matthew Butterick 6 years ago
parent 5705570e1f
commit 18f3962346

@ -129,7 +129,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/base.js
(error 'create-font "unknown font format")))
(module+ test
(require rackunit racket/struct)
(require rackunit racket/struct racket/vector)
(define charter (open-font charter-path))
(define fira (open-font (path->string fira-path)))
(define otf (open-font (path->string fira-otf-path)))
@ -144,10 +144,10 @@ https://github.com/mbutterick/fontkit/blob/master/src/base.js
(check-equal? (font-cap-height charter) 671)
(check-equal? (font-x-height charter) 481)
(check-equal? (bbox->list (font-bbox charter)) '(-161 -236 1193 963))
(check-equal? (glyph-position-x-advance (car (glyphrun-positions (layout charter "f")))) 321)
(check-equal? (glyph-position-x-advance (vector-ref (glyphrun-positions (layout charter "f")) 0)) 321)
(check-true (has-table? charter #"cmap"))
(check-exn exn:fail:contract? (λ () (get-table charter 'nonexistent-table-tag)))
(check-true
(let ([gr (layout fira "Rifle")])
(and (equal? (map glyph-id (glyphrun-glyphs gr)) '(227 480 732 412))
(equal? (map struct->list (glyphrun-positions gr)) '((601 0 0 0 0) (279 0 0 0 0) (580 0 0 0 0) (547 0 0 0 0)))))))
(and (equal? (vector-map glyph-id (glyphrun-glyphs gr)) '#(227 480 732 412))
(equal? (vector-map struct->list (glyphrun-positions gr)) '#((601 0 0 0 0) (279 0 0 0 0) (580 0 0 0 0) (547 0 0 0 0)))))))

Loading…
Cancel
Save