pontarius-xmpp-0.5.3: tests/Run/Google.hs

{-# LANGUAGE OverloadedStrings #-}

-- | Test connecting to google services
module Run.Google where


import qualified Data.Configurator as Conf
import           Network.Xmpp
import           Network.Xmpp.Lens
import           System.Exit
import           System.Log.Logger
import           Test.HUnit
import           Network.TLS

import           Run.Config

xmppConf = set tlsServerIdentificationL ("talk.google.com", "") $ def

connectGoogle = do
    conf <- loadConfig
    _ <- configuredLoglevel conf
    infoM "Pontarius.Xmpp" "Trying to connect to google server"
    let realm = "google.com"
    user <- Conf.require conf "google.user"
    password <- Conf.require conf "google.password"
    mbSess <- session realm (simpleAuth user password) xmppConf
    sess <- case mbSess of
        Left e -> do
            assertFailure $ "google session could not be initialized" ++ show e
            exitFailure
        Right r -> return r
    infoM "Pontarius.Xmpp" "Done trying to connect to google server"

-- connectGoogleSCM = do
--     conf <- loadConfig
--     _ <- configuredLoglevel conf
--     infoM "Pontarius.Xmpp" "Trying to connect to google server"
--     let realm = "gcm.googleapis.com"
--     user <- Conf.require conf "google.user"
--     password <- Conf.require conf "google.password"
--     mbSess <- session realm (simpleAuth user password) xmppConf
--     sess <- case mbSess of
--         Left e -> do
--             assertFailure $ "google session could not be initialized" ++ show e
--             exitFailure
--         Right r -> return r
--     infoM "Pontarius.Xmpp" "Done trying to connect to google server"