diff options
author | Griffin Smith <root@gws.fyi> | 2019-09-02T17·56-0400 |
---|---|---|
committer | Griffin Smith <root@gws.fyi> | 2019-09-02T17·59-0400 |
commit | 4d270712aecf1b61249086718852b96968de2bd8 (patch) | |
tree | bbceb63b5b7e5ade5025472f343b1ff1b3b96c65 /test | |
parent | 243104c410da7e2064972b98cda757558b4e3913 (diff) |
Add raws, loaded statically from a folder
Add raw types with support for both creatures and items, loaded statically from a "raws" folder just like in the Rust version.
Diffstat (limited to 'test')
-rw-r--r-- | test/Spec.hs | 6 | ||||
-rw-r--r-- | test/Xanthous/DataSpec.hs | 2 | ||||
-rw-r--r-- | test/Xanthous/Entities/RawsSpec.hs | 16 |
3 files changed, 21 insertions, 3 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 6f955aa6964d..7ae9b40d267e 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -4,15 +4,17 @@ import qualified Xanthous.Data.EntityMapSpec import qualified Xanthous.GameSpec import qualified Xanthous.MessageSpec import qualified Xanthous.OrphansSpec +import qualified Xanthous.Entities.RawsSpec main :: IO () main = defaultMain test test :: TestTree test = testGroup "Xanthous" - [ Xanthous.DataSpec.test - , Xanthous.Data.EntityMapSpec.test + [ Xanthous.Data.EntityMapSpec.test + , Xanthous.Entities.RawsSpec.test , Xanthous.GameSpec.test , Xanthous.MessageSpec.test , Xanthous.OrphansSpec.test + , Xanthous.DataSpec.test ] diff --git a/test/Xanthous/DataSpec.hs b/test/Xanthous/DataSpec.hs index ba060b7ad289..2c9f9dd3f9b1 100644 --- a/test/Xanthous/DataSpec.hs +++ b/test/Xanthous/DataSpec.hs @@ -1,6 +1,6 @@ -- | -module Xanthous.DataSpec where +module Xanthous.DataSpec (main, test) where import Test.Prelude hiding (Right, Left, Down) import Xanthous.Data diff --git a/test/Xanthous/Entities/RawsSpec.hs b/test/Xanthous/Entities/RawsSpec.hs new file mode 100644 index 000000000000..2e6f35457fc7 --- /dev/null +++ b/test/Xanthous/Entities/RawsSpec.hs @@ -0,0 +1,16 @@ +-- | + +module Xanthous.Entities.RawsSpec (main, test) where + +import Test.Prelude +import Xanthous.Entities.Raws + +main :: IO () +main = defaultMain test + +test :: TestTree +test = testGroup "Xanthous.Entities.Raws" + [ testGroup "raws" + [ testCase "are all valid" $ raws `deepseq` pure () + ] + ] |