You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Test.Tasty.HUnit
|
|
|
|
|
import Test.Tasty
|
|
|
|
|
|
|
|
|
|
import qualified Run.SendReceive as SendReceive
|
|
|
|
|
import qualified Run.Google as Google
|
|
|
|
|
|
|
|
|
|
sendReceiveTest = testCase "send and receive" SendReceive.run
|
|
|
|
|
googleTest = testCase "connect to google service" Google.connectGoogle
|
|
|
|
|
|
|
|
|
|
main = defaultMain $ testGroup "connection tests" [ sendReceiveTest
|
|
|
|
|
, googleTest
|
|
|
|
|
]
|
