LambdaHack-0.11.0.1: test/MonadClientUIUnitTests.hs

module MonadClientUIUnitTests (monadClientUIUnitTests) where

import Prelude ()

import Game.LambdaHack.Core.Prelude

import Test.Tasty
import Test.Tasty.HUnit

import Game.LambdaHack.Client.MonadClient
import Game.LambdaHack.Client.State
import Game.LambdaHack.Client.UI.MonadClientUI
import Game.LambdaHack.Client.UI.Overlay

import UnitTestHelpers

monadClientUIUnitTests :: TestTree
monadClientUIUnitTests = testGroup "handleHumanLocalMUnitTests"
  [ testCase "getsClient sside" $ do
      sideInMonad <- executorCli (getsClient sside) stubCliState
      fst sideInMonad @?= testFactionId
  , testCase "getArenaUI works in stub" $ do
      levelIdInMonad <- executorCli getArenaUI stubCliState
      fst levelIdInMonad @?= testLevelId
  , testCase "viewedLevelUI works in stub" $ do
      levelIdInMonad <- executorCli viewedLevelUI stubCliState
      fst levelIdInMonad @?= testLevelId
  , testCase "getFontSetup works in stub" $ do
      fontSetupInMonad <- executorCli getFontSetup stubCliState
      fst fontSetupInMonad @?= multiFontSetup
  ]