about summary refs log tree commit diff
path: root/test
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-09-02T17·56-0400
committerGriffin Smith <root@gws.fyi>2019-09-02T17·59-0400
commit4d270712aecf1b61249086718852b96968de2bd8 (patch)
treebbceb63b5b7e5ade5025472f343b1ff1b3b96c65 /test
parent243104c410da7e2064972b98cda757558b4e3913 (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.hs6
-rw-r--r--test/Xanthous/DataSpec.hs2
-rw-r--r--test/Xanthous/Entities/RawsSpec.hs16
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 ()
+    ]
+  ]