1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module HandleHelperMUnitTests (handleHelperMUnitTests) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Test.Tasty
import Test.Tasty.HUnit
import Game.LambdaHack.Client.UI.HandleHelperM
import UnitTestHelpers
handleHelperMUnitTests :: TestTree
handleHelperMUnitTests = testGroup "handleHelperMUnitTests"
[ testCase "partyAfterLeader" $ do
-- You've got to fight for your right to party!
let testFunc = partyAfterLeader testActorId
partyInMonad <- executorCli testFunc testCliStateWithItem
let party = fst partyInMonad
party @?= []
]
|
