Duckling/Quantity/ES/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.ES.Corpus
  ( corpus
  ) where

import Prelude
import Data.String

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

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

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

allExamples :: [Example]
allExamples = concat
  [ examples (simple Pound 2 (Just "carne"))
             [ "dos libras de carne"
             ]
  , examples (simple Gram 2 Nothing)
             [ "dos gramos"
             , "0,002 kg"
             , "2/1000 kilogramos"
             , "2000 miligramos"
             ]
  , examples (simple Gram 1000 Nothing)
             [ "un kilogramo"
             , "un kg"
             ]
  , examples (simple Pound 1 Nothing)
             [ "una libra"
             , "1 lb"
             , "una lb"
             ]
  , examples (simple Ounce 2 Nothing)
             [ "2 onzas"
             , "2oz"
             ]
  , examples (simple Cup 3 (Just "azucar"))
             [ "tres tazas de azucar"
             , "3 tazas de AzUcAr"
             ]
  , examples (simple Cup 0.75 Nothing)
             [ "3/4 taza"
             , "0,75 taza"
             , ",75 tazas"
             ]
  , examples (simple Gram 500 (Just "fresas"))
             [ "500 gramos de fresas"
             , "500g de fresas"
             , "0,5 kilogramos de fresas"
             , "0,5 kg de fresas"
             , "500000mg de fresas"
             ]
  , examples (under Pound 6 (Just "carne"))
              [ "menos que seis libras de carne"
              , "no más que 6 lbs de carne"
              , "por debajo de 6,0 libras de carne"
              , "a lo sumo seis libras de carne"
              ]
  , examples (above Cup 2 Nothing)
              [ "excesivo 2 tazas"
              , "como mínimo dos tazas"
              , "mayor de 2 tazas"
              , "más de 2 tazas"
              ]
  , examples (above Ounce 4 (Just "chocolate"))
              [ "excesivo 4 oz de chocolate"
              , "al menos 4,0 oz de chocolate"
              , "mayor de cuatro onzas de chocolate"
              , "más de cuatro onzas de chocolate"
              ]
  ]