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.
14 lines
466 B
14 lines
466 B
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 |
|
]
|
|
|