Corpus.hs

-- Copyright (c) 2016-present, Facebook, Inc.
-- All rights reserved.
--
-- This source code is licensed under the BSD-style license found in the
-- LICENSE file in the root directory of this source tree.


{-# LANGUAGE OverloadedStrings #-}

module Duckling.Quantity.KM.Corpus
  ( corpus
  ) where

import Data.String
import Prelude

import Duckling.Locale
import Duckling.Quantity.Types
import Duckling.Resolve
import Duckling.Testing.Types

context :: Context
context = testContext{locale = makeLocale KM Nothing}

corpus :: Corpus
corpus = (context, testOptions, allExamples)

allExamples :: [Example]
allExamples = concat
  [ examples (simple Cup 3 Nothing)
             [ "បីកែវ"
             ]
  , examples (simple Bowl 1 Nothing)
             [ "១ចាន"
             ]
  , examples (simple Pint 15 Nothing)
             [ "ដប់ប្រាំថូ"
             ]
  , examples (simple (Custom "For Persons") 2 (Just "មនុស្ស"))
             [ "មនុស្ស២នាក់"
             , "មនុស្សពីរនាក់"
             ]
  , examples (simple (Custom "For Buildings") 8 (Just "ផ្ទះ"))
             [ "ផ្ទះ៨ខ្នង"
             , "ផ្ទះប្រាំបីខ្នង"
             ]
  , examples (simple Gram 1000 Nothing)
             [ "មួយពាន់ក្រាម"
             , "មួយគីឡូក្រាម"
             , "មួយលានមីលីក្រាម"
             ]
  , examples (between Gram (2,7) Nothing)
             [ "ចាប់ពី 2 ដល់ 7 ក្រាម"
             , "ចន្លោះពី ២ ដល់ ៧ក្រាម"
             , "ចន្លោះ ២ក្រាម និង ៧ក្រាម"
             , "ប្រហែល ២-៧ ក្រាម"
             , "~2-7ក្រាម"
             ]
  , examples (under Tablespoon 4 Nothing)
             [ "តិចជាងបួនស្លាបព្រា"
             , "មិនលើស៤ស្លាបព្រា"
             , "ក្រោម៤ស្លាបព្រា"
             , "យ៉ាងច្រើន៤ស្លាបព្រា"
             ]
  , examples (above Bowl 10 Nothing)
             [ "ច្រើនជាងដប់ចាន"
             , "មិនតិចជាងដប់ចាន"
             , "លើសពីដប់ចាន"
             , "យ៉ាងតិចដប់ចាន"
             ]
  ]