33 lines
1.1 KiB
Haskell
33 lines
1.1 KiB
Haskell
|
{- This Source Code Form is subject to the terms of the Mozilla Public License,
|
||
|
|
v. 2.0. If a copy of the MPL was not distributed with this file, You can
|
||
|
|
obtain one at https://mozilla.org/MPL/2.0/. -}
|
||
|
|
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
|
||
|
|
module Graphics.Fountainhead.MetricsSpec
|
||
|
|
( spec
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Graphics.Fountainhead.Metrics
|
||
|
|
import Test.Hspec (Spec, describe, it, shouldBe)
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec =
|
||
|
|
describe "collectMetrics" $
|
||
|
|
it "collects information from the name table" $ do
|
||
|
|
let expected = FontDescriptor
|
||
|
|
{ fontName = "fontName"
|
||
|
|
, flags = []
|
||
|
|
, fullName = "fullName"
|
||
|
|
, familyName = "familyName"
|
||
|
|
, weight = "weight"
|
||
|
|
, fontBBox = FontBBox 0 0 0 0
|
||
|
|
, version = "1.0.0"
|
||
|
|
, notice = "Notice"
|
||
|
|
, encodingScheme = "encodingScheme"
|
||
|
|
, isFixedPitch = False
|
||
|
|
, ascender = 0
|
||
|
|
, descender = 0
|
||
|
|
}
|
||
|
|
in collectMetrics `shouldBe` expected
|