1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
module ActorStateUnitTests (actorStateUnitTests) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Test.Tasty
import Test.Tasty.HUnit
import Game.LambdaHack.Common.ActorState
import Game.LambdaHack.Definition.Ability as Ability
import UnitTestHelpers
actorStateUnitTests :: TestTree
actorStateUnitTests = testGroup "actorStateUnitTests"
[ testCase "getActorBody verify stubCliState has testActor" $
getActorBody testActorId (cliState stubCliState) @?= testActor
, testCase "getActorMaxSkills verify stubCliState has zeroSkills" $
getActorMaxSkills testActorId (cliState stubCliState)
@?= Ability.zeroSkills
, testCase "fidActorNotProjGlobalAssocs" $
fidActorNotProjGlobalAssocs testFactionId (cliState testCliStateWithItem)
@?= [(testActorId, testActorWithItem)]
]
|
