From 18f39623463b613f528d3187771d459ea0415cf6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 30 Dec 2018 16:14:11 -0800 Subject: [PATCH] vectorize tests --- fontland/fontland/font.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/fontland/fontland/font.rkt b/fontland/fontland/font.rkt index 541398f1..91748119 100644 --- a/fontland/fontland/font.rkt +++ b/fontland/fontland/font.rkt @@ -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)))))))