duckling/Duckling/Time/BG/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.Time.BG.Corpus
  ( corpus
  , negativeCorpus
  ) where

import Data.String
import Prelude

import Duckling.Locale
import Duckling.Resolve
import Duckling.Testing.Types hiding (examples)
import Duckling.Time.Corpus
import Duckling.Time.Types hiding (Month)
import Duckling.TimeGrain.Types hiding (add)

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

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

negativeCorpus :: NegativeCorpus
negativeCorpus = (context, testOptions, examples)
  where
    examples =
      [ "един хотел"
      , "една оферта"
      , "следващи 5"
      ]

allExamples :: [Example]
allExamples = concat
  [ examples (datetime (2013, 2, 12, 4, 30, 0) Second)
             [ "сега"
             , "точно сега"
             ]
  , examples (datetime (2013, 2, 12, 0, 0, 0) Day)
             [ "днес"
             ]
  , examples (datetime (2013, 2, 11, 0, 0, 0) Day)
             [ "вчера"
             ]
  , examples (datetime (2013, 2, 13, 0, 0, 0) Day)
             [ "утре"
             ]
  , examples (datetime (2013, 2, 18, 0, 0, 0) Day)
             [ "понеделник"
             , "пон."
             , "този понеделник"
             ]
  , examples (datetime (2013, 2, 18, 0, 0, 0) Day)
             [ "понеделник, 18 февруари"
             ]
  , examples (datetime (2013, 2, 19, 0, 0, 0) Day)
             [ "вторник"
             ]
  , examples (datetime (2013, 2, 14, 0, 0, 0) Day)
             [ "четвъртък"
             ]
  , examples (datetime (2013, 2, 15, 0, 0, 0) Day)
             [ "петък"
             ]
  , examples (datetime (2013, 2, 16, 0, 0, 0) Day)
             [ "събота"
             ]
  , examples (datetime (2013, 2, 17, 0, 0, 0) Day)
             [ "неделя"
             , "нед."
             ]
  , examples (datetime (2013, 3, 1, 0, 0, 0) Day)
             [ "1 март"
             , "първи март"
             ]
  , examples (datetime (2013, 2, 15, 0, 0, 0) Day)
             [ "на петнадесети"
             ]
  , examples (datetime (2013, 8, 8, 0, 0, 0) Day)
             [ "8 август"
             ]
  , examples (datetime (2014, 10, 0, 0, 0, 0) Month)
             [ "октомври 2014"
             ]
  , examples (datetime (1974, 10, 31, 0, 0, 0) Day)
             [ "31.10.1974"
             , "31.10.74"
             ]
  , examples (datetime (2015, 4, 14, 0, 0, 0) Day)
             ["14 април 2015"
             ,"април 14, 2015"
             ]
  , examples (datetime (2013, 2, 19, 0, 0, 0) Day)
             [ "следващия вторник"
             ]
  , examples (datetime (2013, 2, 22, 0, 0, 0) Day)
             [ "по-следващия петък"
             ]
  , examples (datetime (2013, 3, 0, 0, 0, 0) Month)
             [ "следващия март"
             ]
  , examples (datetime (2013, 2, 11, 0, 0, 0) Week)
             [ "тази седмица"
             ]
  , examples (datetime (2013, 2, 4, 0, 0, 0) Week)
             [ "последната седмица"
             ]
  , examples (datetime (2013, 2, 18, 0, 0, 0) Week)
             [ "следващата седмица"
             ]
  , examples (datetime (2013, 1, 0, 0, 0, 0) Month)
             [ "последния месец"
             ]
  , examples (datetime (2012, 0, 0, 0, 0, 0) Year)
             [ "миналата година"
             ]
  , examples (datetime (2013, 0, 0, 0, 0, 0) Year)
             [ "тази година"
             ]
  , examples (datetime (2014, 0, 0, 0, 0, 0) Year)
             [ "следващата година"
             ]
  , examples (datetime (2013, 2, 12, 4, 0, 0) Hour)
             [ "в 4 сутринта"
             ]
  , examples (datetime (2013, 2, 12, 15, 0, 0) Hour)
             [ "в 3"
             , "3 часа"
             , "в три"
             ]
  , examples (datetime (2013, 2, 13, 3, 18, 0) Minute)
             [ "3:18 сутринта"
             ]
  , examples (datetime (2013, 2, 13, 3, 18, 0) Minute)
             [ "3:18"
             ]
  , examples (datetime (2013, 2, 12, 15, 18, 0) Minute)
             [ "3:18 след обед"
             ]
  , examples (datetime (2013, 2, 12, 20, 0, 0) Minute)
             [ "днес в 20:00"
             ]
  , examples (datetime (2013, 2, 13, 0, 0, 0) Day)
             [ "утре"
             ]
  , examples (datetimeOpenInterval After (2016, 2, 0, 0, 0, 0) Month)
             [ "след 3 години"
             ]
  , examples (datetimeOpenInterval After (2013, 2, 19, 4, 0, 0) Hour)
             [ "след 7 дни"
             ]
  , examples (datetimeInterval ((2013, 6, 21, 0, 0, 0), (2013, 9, 24, 0, 0, 0)) Day)
             [ "това лято"
             ]
  , examples (datetimeInterval ((2012, 12, 21, 0, 0, 0), (2013, 3, 21, 0, 0, 0)) Day)
             [ "тази зима"
             ]
  , examples (datetimeHoliday (2013, 12, 25, 0, 0, 0) Day "Christmas")
             [ "коледа"
             ]
  , examples (datetimeInterval ((2013, 2, 12, 18, 0, 0), (2013, 2, 13, 0, 0, 0)) Hour)
             [ "тази вечер"
             ]
  ]