-- 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.AmountOfMoney.ID.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 :: Corpus
corpus = (Context
testContext {locale :: Locale
locale = Lang -> Maybe Region -> Locale
makeLocale Lang
ID Maybe Region
forall a. Maybe a
Nothing}, Options
testOptions, [Example]
allExamples)

allExamples :: [Example]
allExamples :: [Example]
allExamples = [[Example]] -> [Example]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat
  [ AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
Dollar Double
10)
             [ Text
"$10"
             , Text
"10$"
             , Text
"sepuluh dolar"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
Dollar Double
10000)
             [ Text
"$10.000"
             , Text
"10K$"
             , Text
"$10k"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
USD Double
1.23)
             [ Text
"USD1,23"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
Dollar Double
2)
             [ Text
"2 dolar"
             , Text
"dua dolar"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
EUR Double
20)
             [ Text
"20€"
             , Text
"20 euros"
             , Text
"20 Euro"
             , Text
"20 Euros"
             , Text
"EUR 20"
             , Text
"dua puluh Euro"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
EUR Double
29.99)
             [ Text
"EUR29,99"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
IDR Double
315)
             [ Text
"Rp. 315,00"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
IDR Double
20)
             [ Text
"Rp 20"
             , Text
"20 Rupiah"
             , Text
"20Rp"
             , Text
"Rp20"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
IDR Double
33000)
             [ Text
"IDR33000"
             , Text
"IDR 33.000"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
Pound Double
9)
             [ Text
"£9"
             , Text
"sembilan pound"
             , Text
"sembilan pound sterling"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
GBP Double
3.01)
             [ Text
"GBP3,01"
             , Text
"GBP 3,01"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
simple Currency
JPY Double
10)
             [ Text
"10 yen"
             , Text
"10¥"
             , Text
"10 ¥."
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> (Double, Double) -> AmountOfMoneyValue
between Currency
Dollar(Double
10, Double
20))
             [ Text
"antara 10 sampai 20 dolar"
             , Text
"dari 10 dolar sampai 20 dolar"
             , Text
"sekitar 10 sampai 20 dolar"
             , Text
"antara 10 hingga 20 dolar"
             , Text
"sekitar 10 dolar hingga 20 dolar"
             , Text
"kira-kira 10-20 dolar"
             , Text
"10-20 dolar"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> (Double, Double) -> AmountOfMoneyValue
between Currency
IDR(Double
1000, Double
10000))
             [ Text
"antara Rp1000 sampai Rp10000"
             , Text
"dari 1000 Rupiah hingga 10000 Rupiah"
             , Text
"sekitar 1000 sampai 10000 Rupiah"
             , Text
"1000-10000 Rupiah"
             , Text
"kira-kira Rp1000 sampai Rp10000"
             , Text
"dari Rp1.000 sampai Rp10.000"
             , Text
"antara 1.000 hingga 10.000 Rupiah"
             , Text
"kira-kira 1.000-10.000 Rupiah"
             , Text
"sekitar 1.000 hingga 10.000 Rupiah"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
under Currency
EUR Double
7)
             [ Text
"kurang dari 7 euro"
             , Text
"di bawah EUR 7"
             , Text
"tidak sampai 7 euro"
             , Text
"lebih murah dari EUR 7"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
under Currency
IDR Double
500)
             [ Text
"kurang dari 500 Rupiah"
             , Text
"tidak sampai Rp500"
             , Text
"di bawah Rp 500"
             , Text
"lebih murah dari 500 rupiah"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
above Currency
USD Double
1.42)
             [ Text
"di atas USD1,42"
             , Text
"lebih dari USD1,42"
             , Text
"melebihi USD1,42"
             , Text
"melewati USD1,42"
             ]
  , AmountOfMoneyValue -> [Text] -> [Example]
forall a. ToJSON a => a -> [Text] -> [Example]
examples (Currency -> Double -> AmountOfMoneyValue
above Currency
IDR Double
33000)
             [ Text
"di atas 33.000 Rupiah"
             , Text
"lebih dari Rp33000"
             , Text
"melebihi Rp33.000"
             , Text
"melewati 33000 rupiah"
             ]
  ]