Scene adapter spec tests.

mrehayden1 · Feb 24, 2024 · b53b7e5 · b53b7e5
1 parent f1c7544
commit b53b7e5
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/test/Text/GLTF/Loader/Internal/AdapterSpec.hs b/test/Text/GLTF/Loader/Internal/AdapterSpec.hs
@@ -279,6 +279,7 @@ loaderGltf = Gltf
     gltfMeshes = [loaderMesh],
     gltfNodes = [loaderNode],
     gltfSamplers = [loaderSampler],
+    gltfScenes = [loaderScene],
     gltfTextures = [loaderTexture]
   }
 
@@ -334,6 +335,12 @@ loaderSampler = Sampler
     samplerWrapT = Repeat
   }
 
+loaderScene :: Scene
+loaderScene = Scene
+  { sceneName = Just "Scene",
+    sceneNodes = [0]
+  }
+
 loaderTexture :: Texture
 loaderTexture = Texture
   { textureName = Just "Texture",

diff --git a/test/Text/GLTF/Loader/Test/MkGltf.hs b/test/Text/GLTF/Loader/Test/MkGltf.hs
@@ -22,6 +22,7 @@ import qualified Codec.GlTF.Mesh as Mesh
 import qualified Codec.GlTF.PbrMetallicRoughness as PbrMetallicRoughness
 import qualified Codec.GlTF.Node as Node
 import qualified Codec.GlTF.Sampler as Sampler
+import qualified Codec.GlTF.Scene as Scene
 import qualified Codec.GlTF.Texture as Texture
 import qualified Codec.GlTF.TextureInfo as TextureInfo
 import qualified Codec.GlTF.URI as URI
@@ -62,7 +63,7 @@ mkCodecGltf = GlTF.GlTF
     meshes = Just [mkCodecMesh],
     nodes = Just [mkCodecNode],
     samplers = Just [mkCodecSampler],
-    scenes = Nothing,
+    scenes = Just [mkCodecScene],
     skins = Nothing,
     textures = Just [mkCodecTexture],
     extensions = Nothing,
@@ -447,6 +448,14 @@ mkCodecSampler = Sampler.Sampler
     wrapT = Sampler.REPEAT
   }
 
+mkCodecScene :: Scene.Scene
+mkCodecScene = Scene.Scene
+  { name = Just "Scene",
+    nodes = Just [Node.NodeIx 0],
+    extensions = Nothing,
+    extras = Nothing
+  }
+
 mkCodecTexture :: Texture.Texture
 mkCodecTexture = Texture.Texture
   { sampler = Just (Sampler.SamplerIx 0),