Money ar

Duckling/AmountOfMoney/AR/Corpus.hs

@@ -0,0 +1,125 @@
+-- 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.AR.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 AR Nothing}, allExamples)
+
+allExamples :: [Example]
+allExamples = concat
+  [ examples (simple Dollar 1)
+             [ "$1"
+             , "1 دولار"
+             ]
+  , examples (simple Dollar 10)
+             [ "$10"
+             , "$ 10"
+             , "10 $"
+             , "10$"
+             , "10$"
+             , "10 دولار"
+             , "عشرة دولارات"
+             ]
+  , examples (simple Cent 10)
+             [ "10 سنتات"
+             , "10 سنت"
+             , "10 سينت"
+             , "10 سينتات"
+             , "10 c"
+             , "10¢"
+             ]
+  , examples (simple Dollar 1e4)
+             [ "10000 دولار"
+             , "$10,000"
+             ]
+  , examples (simple EUR 20)
+             [ "20 يورو"
+             , "20 اورو"
+             , "20 أورو"
+             , "20€"
+             , "20 €"
+             ]
+  , examples (simple Pound 10)
+             [ "10 جنيه"
+             , "10 جنيهات"
+             ]
+  , examples (simple Dollar 20.43)
+             [ "20$ و 43c"
+             , "$20 43"
+             , "20$ 43c"
+             , "20 دولار و43 سنت"
+             , "20.43 $"
+             ]
+  , examples (simple GBP 3)
+             [ "3 جنيهات استرلينية"
+             , "3 جنيه استرليني"
+             ]
+  , examples (simple KWD 42)
+             [ "42 KWD"
+             , "42 دينار كويتي"
+             ]
+  , examples (simple LBP 42)
+             [ "42 LBP"
+             , "42 ليرة لبنانية"
+             , "42 ليرات لبنانية"
+             ]
+  , examples (simple EGP 42)
+             [ "42 EGP"
+             , "42 جنيه مصري"
+             , "42 جنيهات مصريه"
+             ]
+  , examples (simple QAR 42)
+             [ "42 QAR"
+             , "42 ريال قطري"
+             , "42 ريالات قطرية"
+             ]
+  , examples (simple SAR 42)
+             [ "42 SAR"
+             , "42 ريال سعودي"
+             ]
+  , examples (between Dollar (10, 20))
+             [ "من 10 الى 20 دولار"
+             , "بحدود 10-20 دولار"
+             , "ما بين عشرة وعشرون دولار"
+             , "من عشرة لعشرين دولار"
+             , "حوالي 10$-20$"
+             , "10-20 $"
+             , "10-20 دولار"
+             ]
+  , examples (under EUR 7)
+             [ "تحت سبعة اورو"
+             , "اقل من سبعة يورو"
+             , "اقل من 7 يورو"
+             ]
+  , examples (above Dollar 3.42)
+             [ "اكثر من ثلاثة دولار و42 سينت"
+             , "3.42$ على الاقل"
+             ]
+  , examples (simple JOD 5)
+             [ "5 دينار اردني"
+             , "5 دنانير أردنية"
+             ]
+  , examples (simple ILS 5)
+             [ "5 شيقل"
+             , "5 شواقل"
+             , "خمسة شيكل"
+             ]
+  ]