25a1c5ade3
Factor out a new EntityAttributes type from some of the methods of the Entity class, to avoid the proliferation of 1-argument boolean methods on the entity class that always have to be forwarded through the Entity instance for SomeEntity if they have defaults (forgetting to do which has wasted tons of my time up to this point). Currently blocksVision, blocksObject, and collision are all in there.
41 lines
1.5 KiB
Haskell
41 lines
1.5 KiB
Haskell
--------------------------------------------------------------------------------
|
|
import Test.Prelude
|
|
--------------------------------------------------------------------------------
|
|
import qualified Xanthous.Data.EntityCharSpec
|
|
import qualified Xanthous.Data.EntityMapSpec
|
|
import qualified Xanthous.Data.EntityMap.GraphicsSpec
|
|
import qualified Xanthous.Data.LevelsSpec
|
|
import qualified Xanthous.Data.EntitiesSpec
|
|
import qualified Xanthous.DataSpec
|
|
import qualified Xanthous.Entities.RawsSpec
|
|
import qualified Xanthous.GameSpec
|
|
import qualified Xanthous.Generators.UtilSpec
|
|
import qualified Xanthous.MessageSpec
|
|
import qualified Xanthous.OrphansSpec
|
|
import qualified Xanthous.Util.GraphicsSpec
|
|
import qualified Xanthous.Util.GraphSpec
|
|
import qualified Xanthous.Util.InflectionSpec
|
|
import qualified Xanthous.UtilSpec
|
|
--------------------------------------------------------------------------------
|
|
|
|
main :: IO ()
|
|
main = defaultMain test
|
|
|
|
test :: TestTree
|
|
test = testGroup "Xanthous"
|
|
[ Xanthous.Data.EntityCharSpec.test
|
|
, Xanthous.Data.EntityMapSpec.test
|
|
, Xanthous.Data.EntityMap.GraphicsSpec.test
|
|
, Xanthous.Data.LevelsSpec.test
|
|
, Xanthous.Data.EntitiesSpec.test
|
|
, Xanthous.Entities.RawsSpec.test
|
|
, Xanthous.GameSpec.test
|
|
, Xanthous.Generators.UtilSpec.test
|
|
, Xanthous.MessageSpec.test
|
|
, Xanthous.OrphansSpec.test
|
|
, Xanthous.DataSpec.test
|
|
, Xanthous.UtilSpec.test
|
|
, Xanthous.Util.GraphicsSpec.test
|
|
, Xanthous.Util.GraphSpec.test
|
|
, Xanthous.Util.InflectionSpec.test
|
|
]
|