feat: add render-scene! to renderer — draw full scene in one call

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/renderer-test.scm b/tests/renderer-test.scm
index b771847..fb91f54 100644
--- a/tests/renderer-test.scm
+++ b/tests/renderer-test.scm
@@ -89,4 +89,24 @@
               '()
               (entity-flip (list #:x 0))))
 
+(test-group "render-scene!"
+  (let* ((cam      (make-camera x: 0 y: 0))
+         (tileset  (make-tileset tilewidth: 16 tileheight: 16
+                                 spacing: 0 tilecount: 100 columns: 10
+                                 image-source: "" image: #f))
+         (layer    (make-layer name: "ground" width: 2 height: 2
+                               map: '((1 2) (3 4))))
+         (tilemap  (make-tilemap width: 2 height: 2
+                                 tilewidth: 16 tileheight: 16
+                                 tileset-source: ""
+                                 tileset: tileset
+                                 layers: (list layer)
+                                 objects: '()))
+         (scene    (make-scene entities: '()
+                               tilemap: tilemap
+                               camera: cam
+                               tileset-texture: #f)))
+    (test-assert "does not crash on valid scene"
+      (begin (render-scene! #f scene) #t))))
+
 (test-end "renderer")