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. An additional grant
-- of patent rights can be found in the PATENTS file in the same directory.


{-# LANGUAGE OverloadedStrings #-}

module Duckling.AmountOfMoney.ZH.Corpus
  ( corpus
  ) where

import Data.String
import Prelude

import Duckling.AmountOfMoney.Types
import Duckling.Locale
import Duckling.Resolve
import Duckling.Testing.Types

corpus :: Corpus
corpus = (testContext {locale = makeLocale ZH Nothing},
  testOptions, allExamples)

allExamples :: [Example]
allExamples = concat
  [ examples (simple Cent 5)
             [ "五分"
             , "5分"
             ]
  , examples (simple Cent 20)
             [ "20分"
             , "二十分"
             , "2角"
             , "两毛"
             ]
  , examples (simple Cent 25)
             [ "25分"
             , "二十五分"
             , "两角五分"
             , "两毛五"
             ]
  , examples (simple Dollar 7)
             [ "7块"
             , "七元"
             ]
  , examples (simple CNY 3.14)
             [ "3.14人民币"
             , "人民幣3.14"
             ]
  , examples (under Dollar 1.2)
             [ "1.2元以下"
             , "最多一块二角"
             , "最多一块二"
             ]
  , examples (above Dollar 3.04)
             [ "3.04块以上"
             , "至少三块四分"
             , "至少三块零四"
             ]
  , examples (between Dollar (5.6, 5.78))
             [ "5.6到5.78元"
             , "五元六角-五元七毛八分"
             , "五块六到五块七毛八"
             ]
  ]