-- 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.Distance.ZH.Corpus
  ( corpus ) where

import Data.String
import Prelude

import Duckling.Distance.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 Centimetre 2)
             [ "2cm"
             , "2 厘米"
             , "二厘米"
             , "2公分"
             , "二公分"
             ]
  , examples (simple Metre 9)
             [ "9m"
             , "9 m"
             , "九米"
             , "9公尺"
             ]
  , examples (simple Kilometre 3)
             [ "3公里"
             , "三公裏"
             , "3 km"
             , "3km"
             ]
  , examples (simple Kilometre 3.0)
             [ "3.0 公里"
             ]
  , examples (simple Foot 8)
             [ "8 foot"
             , "8 feet"
             , "8 foots"
             , "8 feets"
             , "8'"
             , "8英尺"
             , "8呎"
             ]
  , examples (simple Inch 4)
             [ "4 inch"
             , "4 inches"
             , "4''"
             , "4英寸"
             , "4英吋"
             , "四吋"
             ]
  , examples (simple Mile 1)
             [ "1 mile"
             , "1 miles"
             , "1英里"
             , "一英裏"
             ]
  ]