mandrill-0.1.0.0: test/Online.hs

{-# LANGUAGE OverloadedStrings #-}
module Online where

import           Test.QuickCheck
import           Test.Tasty.HUnit
import           Text.RawString.QQ
import           Data.Either
import           Data.Aeson
import           Network.API.Mandrill.Messages.Types
import           Network.API.Mandrill.Users.Types
import qualified Data.ByteString.Char8 as C8
import           RawData

import           Network.API.Mandrill.Types
import qualified Network.API.Mandrill.Messages as API
import qualified Network.API.Mandrill.Users as API

--
-- Users calls
--
testOnlineUsersInfo :: MandrillKey -> Assertion
testOnlineUsersInfo k = do
  res <- API.info k
  case res of
    MandrillSuccess _ -> return ()
    MandrillFailure e -> fail $ "users/info.json " ++ show e

testOnlineUsersPing2 :: MandrillKey -> Assertion
testOnlineUsersPing2 k = do
  res <- API.ping2 k
  case res of
    MandrillSuccess _ -> return ()
    MandrillFailure e -> fail $ "users/ping2.json " ++ show e

testOnlineUsersSenders :: MandrillKey -> Assertion
testOnlineUsersSenders k = do
  res <- API.senders k
  case res of
    MandrillSuccess _ -> return ()
    MandrillFailure e -> fail $ "users/senders.json " ++ show e


--
-- Messages calls
--
testOnlineMessagesSend :: MandrillKey -> Assertion
testOnlineMessagesSend k = do
  msg <- generate arbitrary
  res <- API.send k msg Nothing Nothing Nothing
  case res of
    MandrillSuccess _ -> return ()
    MandrillFailure e -> fail $ "messages/send.json " ++ show e