{-# LANGUAGE OverloadedStrings #-}
module Duckling.Ordinal.DE.Corpus
( corpus
, negativeCorpus
) where
import Prelude
import Data.String
import Duckling.Locale
import Duckling.Ordinal.Types
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus :: Corpus
corpus = (Context
testContext {locale :: Locale
locale = Lang -> Maybe Region -> Locale
makeLocale Lang
DE Maybe Region
forall a. Maybe a
Nothing}, Options
testOptions, [Example]
allExamples)
negativeCorpus :: NegativeCorpus
negativeCorpus :: NegativeCorpus
negativeCorpus = (Context
testContext {locale :: Locale
locale = Lang -> Maybe Region -> Locale
makeLocale Lang
DE Maybe Region
forall a. Maybe a
Nothing}, Options
testOptions, [Text]
examples)
where
examples :: [Text]
examples =
[ Text
"1.1"
, Text
"1.1."
]
allExamples :: [Example]
allExamples :: [Example]
allExamples =
OrdinalData -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Int -> OrdinalData
OrdinalData Int
4)
[ Text
"vierter"
, Text
"4ter"
, Text
"Vierter"
, Text
"4."
]