content: -- 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.Numeral.CA.Corpus (corpus) where
  
  import Data.String
  import Prelude
  
  import Duckling.Locale
  import Duckling.Numeral.Types
  import Duckling.Resolve
  import Duckling.Testing.Types
  
  corpus :: Corpus
  corpus =
    (testContext { locale = makeLocale CA Nothing }, testOptions, allExamples)
  
  allExamples :: [Example]
  allExamples =
    concat
      [ examples (NumeralValue 1)
          [ "1"
          , "u"
          , "un"
          , "una"
          ]
      , examples (NumeralValue 11)
          [ "onze"
          ]
      , examples (NumeralValue 12)
          [ "dotze"
          ]
      , examples (NumeralValue 13)
          [ "tretze"
          ]
      , examples (NumeralValue 14)
          [ "catorze"
          ]
      , examples (NumeralValue 15)
          [ "quinze"
          ]
      , examples (NumeralValue 16)
          [ "setze"
          ]
      , examples (NumeralValue 17)
          [ "disset"
          , "dèsset"
          ]
      , examples (NumeralValue 18)
          [ "divuit"
          , "dihuit"
          , "devuit"
          ]
      , examples (NumeralValue 19)
          [ "dinou"
          , "dènou"
          , "denou"
          ]
      , examples (NumeralValue 20)
          [ "vint"
          ]
      , examples (NumeralValue 21)
          [ "vint-i-un"
          , "vint i un"
          ]
      , examples (NumeralValue 22)
          [ "vint-i-dos"
          , "vint i dos"
          ]
      , examples (NumeralValue 23)
          [ "vint-i-tres"
          , "vint i tres"
          ]
      , examples (NumeralValue 37)
          [ "trenta-set"
          ]
      , examples (NumeralValue 40)
          [ "quaranta"
          ]
      , examples (NumeralValue 70)
          [ "setanta"
          ]
      , examples (NumeralValue 78)
          [ "Setanta-vuit"
          ]
      , examples (NumeralValue 80)
          [ "vuitanta"
          ]
      , examples (NumeralValue 33)
          [ "33"
          , "trenta-tres"
          , "trenta-3"
          ]
      , examples (NumeralValue 100000)
          [ "100000"
          , "100K"
          , "100k"
          ]
      , examples (NumeralValue 300)
          [ "tres-cents"
          ]
      , examples (NumeralValue 243)
          [ "243"
          ]
      , examples (NumeralValue 85)
          [ "vuitanta-cinc"
          ]
      , examples (NumeralValue 3000000)
          [ "3M"
          , "3000K"
          , "3000000"
          ]
      , examples (NumeralValue 1200000)
          [ "1200000"
          , "1200K"
          ]
      , examples (NumeralValue (-1200000))
          [ "-1200000"
          , "-1200K"
          ]
      , examples (NumeralValue 1.5)
          [ "1 coma cinc"
          , "una coma cinc"
          , "u coma cinc"
          ]
      , examples (NumeralValue 1)
          [ "zero u"
          , "zero un"
          ]
      , examples (NumeralValue 2)
          [ "zero dos"
          ]
      , examples (NumeralValue 3)
          [ "zero tres"
          ]
      , examples (NumeralValue 4)
          [ "zero quatre"
          ]
      , examples (NumeralValue 5)
          [ "zero cinc"
          ]
      , examples (NumeralValue 6)
          [ "zero sis"
          ]
      , examples (NumeralValue 7)
          [ "zero set"
          ]
      , examples (NumeralValue 8)
          [ "zero vuit"
          ]
      , examples (NumeralValue 9)
          [ "zero nou"
          ]
      ]
  
  -- Ull, revisar la xifra amb decimals
  