{-# LANGUAGE OverloadedStrings #-}
module Duckling.Numeral.GA.Corpus
( corpus ) where
import Prelude
import Data.String
import Duckling.Locale
import Duckling.Numeral.Types
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus = (testContext {locale = makeLocale GA Nothing}, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (NumeralValue 0)
[ "0"
, "a náid"
]
, examples (NumeralValue 1)
[ "1"
, "aon"
, "a haon"
, "Amháin"
]
, examples (NumeralValue 20)
[ "20"
, "Fiche"
]
]