tdlib-0.1.3: test/Spec.hs

module Main where

import Control.Concurrent.Chan.Unagi
import Polysemy
import TDLib.Effect
import TDLib.EventLoop
import TDLib.Generated.FunArgs
import TDLib.Generated.Functions
import TDLib.Generated.Types
import Test.Hspec
import Test.QuickCheck

main :: IO ()
main = do
  (ichan, ochan) <- newChan
  runM $ runTDLibEventLoop 5 ichan $ do
    setLogPath "test-log.txt"
    r <- testSquareInt (TestSquareInt 2)
    embed $ print r

hspecTest :: IO ()
hspecTest = hspec $ do
  pure ()