6b0bab0e85
Add a data structure, based on the zipper comonad, which provides support for multiple levels, each of which is its own entity map. The current level is provided by coreturn, which the `entities` lens has been updated to use. Nothing currently supports going up or down levels yet - that's coming next.
39 lines
1.4 KiB
Haskell
39 lines
1.4 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.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.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
|
|
]
|