mirror of
https://github.com/facebook/duckling.git
synced 2024-12-01 08:19:36 +03:00
71 lines
1.8 KiB
Haskell
71 lines
1.8 KiB
Haskell
-- 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.PhoneNumber.Corpus
|
|
( corpus
|
|
, negativeCorpus
|
|
) where
|
|
|
|
import Prelude
|
|
import Data.String
|
|
|
|
import Duckling.PhoneNumber.Types
|
|
import Duckling.Testing.Types
|
|
|
|
corpus :: Corpus
|
|
corpus = (testContext, allExamples)
|
|
|
|
negativeCorpus :: NegativeCorpus
|
|
negativeCorpus = (testContext, 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"
|
|
]
|
|
]
|