fluent-icu-1.0.0: test/LocaleSpec.hs

module LocaleSpec (spec) where

import Prelude

spec :: Spec
spec = do
    it "renders language name" $ displayLanguage de fr `shouldBe` Just "allemand"
    it "renders local language name" $ localDisplayLanguage de `shouldBe` Just "Deutsch"

de, fr :: LocaleName
de = "de"
fr = "fr"