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.
31 lines
887 B
Racket
31 lines
887 B
Racket
#lang racket
|
|
(require rackunit racket/runtime-path fontland)
|
|
|
|
#|
|
|
approximates
|
|
https://github.com/mbutterick/fontkit/blob/master/test/index.js
|
|
|#
|
|
|
|
(define-runtime-path open-sans-ttf "data/OpenSans/OpenSans-Regular.ttf")
|
|
(define-runtime-path source-sans-otf "data/SourceSansPro/SourceSansPro-Regular.otf")
|
|
(define-runtime-path mada-ttf "data/Mada/Mada-Regular.subset1.ttf")
|
|
|
|
(test-case
|
|
"should open a font"
|
|
(check-true (ttf-font? (open-font open-sans-ttf))))
|
|
|
|
(test-case
|
|
"should open fonts of different formats"
|
|
(check-true (ttf-font? (open-font open-sans-ttf)))
|
|
(check-true (ttf-font? (open-font source-sans-otf))))
|
|
|
|
(test-case
|
|
"should open fonts lacking PostScript name"
|
|
(define font (open-font mada-ttf))
|
|
(check-false (font-postscript-name font)))
|
|
|
|
#;(test-case
|
|
"should error when opening an invalid font asynchronously"
|
|
(check-exn exn:fail? (λ () (open-font "nowhere"))))
|
|
|