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

import Prelude
import Data.String

import Duckling.PhoneNumber.Types
import Duckling.Testing.Types

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

negativeCorpus :: NegativeCorpus
negativeCorpus = (testContext, testOptions, examples)
  where
    examples =
      [ "12345"
      , "1234567890123456777777"
      , "12345678901234567"
      ]

allExamples :: [Example]
allExamples = concat
  [ examples (PhoneNumberValue "6507018887")
             [ "650-701-8887"
             ]
  , examples (PhoneNumberValue "(+1) 6507018887")
             [ "(+1)650-701-8887"
             , "(+1)   650 - 701  8887"
             , "(+1) 650-701-8887"
             , "+1 6507018887"
             ]
  , examples (PhoneNumberValue "(+33) 146647998")
             [ "+33 1 46647998"
             ]
  , examples (PhoneNumberValue "0620702220")
             [ "06 2070 2220"
             ]
  , examples (PhoneNumberValue "6507018887 ext 897")
             [ "(650)-701-8887 ext 897"
             ]
  , examples (PhoneNumberValue "(+1) 2025550121")
             [ "+1-202-555-0121"
             , "+1 202.555.0121"
             ]
  , examples (PhoneNumberValue "4866827")
             [ "4.8.6.6.8.2.7"
             ]
  , examples (PhoneNumberValue "06354640807")
             [ "06354640807"
             ]
  , examples (PhoneNumberValue "18998078030")
             [ "18998078030"
             ]
  , examples (PhoneNumberValue "61992852776")
             [ "61 - 9 9285-2776"
             ]
  , examples (PhoneNumberValue "19997424919")
             [ "(19) 997424919"
             ]
  , examples (PhoneNumberValue "(+55) 19992842606")
             [ "+55 19992842606"
             ]
  ]