mirror of
https://github.com/facebook/duckling.git
synced 2024-11-28 16:54:59 +03:00
30 lines
822 B
Haskell
30 lines
822 B
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.
|
||
|
|
|
||
|
|
|
||
|
|
module Duckling.Email.Tests (tests) where
|
||
|
|
|
||
|
|
import Prelude
|
||
|
|
import Data.String
|
||
|
|
import Test.Tasty
|
||
|
|
|
||
|
|
import Duckling.Dimensions.Types
|
||
|
|
import Duckling.Email.Corpus
|
||
|
|
import qualified Duckling.Email.EN.Tests as EN
|
||
|
|
import qualified Duckling.Email.FR.Tests as FR
|
||
|
|
import qualified Duckling.Email.IT.Tests as IT
|
||
|
|
import Duckling.Testing.Asserts
|
||
|
|
|
||
|
|
tests :: TestTree
|
||
|
|
tests = testGroup "Email Tests"
|
||
|
|
[ makeCorpusTest [Some Email] corpus
|
||
|
|
, makeNegativeCorpusTest [Some Email] negativeCorpus
|
||
|
|
, EN.tests
|
||
|
|
, FR.tests
|
||
|
|
, IT.tests
|
||
|
|
]
|