module IQManagerTest where

import Prelude ()
import BasicPrelude
import Control.Concurrent.STM (atomically)
import Test.Tasty.HUnit
import Test.QuickCheck.Instances ()
import qualified Network.Protocol.XMPP as XMPP
import qualified Network.Protocol.XMPP.Internal as XMPP

import Util
import IQManager

unit_iqManager :: IO ()
unit_iqManager = do
	(sendIQ, iqReceived) <- iqManager'
	stm <- sendIQ iqToSend
	iqReceived iqResult
	result <- atomically stm
	fmap XMPP.stanzaToElement result @?=
		(Just $ XMPP.stanzaToElement iqResult)
	where
	iqToSend = (XMPP.emptyIQ XMPP.IQSet) {
		XMPP.iqID = Just (s"theID")
	}
	iqResult = (XMPP.emptyIQ XMPP.IQResult) {
		XMPP.iqID = Just (s"theID")
	}