diff options
| author | Griffin Smith <root@gws.fyi> | 2020-01-05T04·48-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2020-01-05T04·48-0500 |
| commit | 6b0bab0e85266ce66836c4584f8cc83b307a3af5 (patch) | |
| tree | cfb4dbe4c370c3f20277336e6be75171c572137a /test/Spec.hs | |
| parent | e669b54f0c9be84dd1e4704ccae4b8169f7458a5 (diff) | |
Add support for multiple levels
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.
Diffstat (limited to 'test/Spec.hs')
| -rw-r--r-- | test/Spec.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 8141b83e9771..ba8f868a8172 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,7 +1,10 @@ -import Test.Prelude +-------------------------------------------------------------------------------- +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 @@ -12,6 +15,7 @@ import qualified Xanthous.Util.GraphicsSpec import qualified Xanthous.Util.GraphSpec import qualified Xanthous.Util.InflectionSpec import qualified Xanthous.UtilSpec +-------------------------------------------------------------------------------- main :: IO () main = defaultMain test @@ -21,6 +25,7 @@ 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 |