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.
49 lines
1.6 KiB
49 lines
1.6 KiB
12 years ago
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
|
||
|
|
-- | Test connecting to google services
|
||
|
|
module Run.Google where
|
||
|
|
|
||
|
|
|
||
|
|
import qualified Data.Configurator as Conf
|
||
|
|
import Network.Xmpp
|
||
|
|
import System.Exit
|
||
|
|
import System.Log.Logger
|
||
|
|
import Test.HUnit
|
||
|
|
import Network.TLS
|
||
|
|
|
||
|
|
import Run.Config
|
||
|
|
|
||
|
|
xmppConf = def {sessionStreamConfiguration =
|
||
|
|
def{tlsParams = (tlsParams def){clientUseServerNameIndication = False}}
|
||
|
|
}
|
||
|
|
|
||
|
|
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"
|