Work on demos

1 files changed, 13 insertions, 2 deletions

diff --git a/tests/renderer-test.scm b/tests/renderer-test.scm
index 8ebeedf..2829348 100644
--- a/tests/renderer-test.scm
+++ b/tests/renderer-test.scm
@@ -22,7 +22,7 @@
 (module sdl2 *
   (import scheme (chicken base))
   (define (make-rect x y w h) (list x y w h))
-  (define (make-color r g b) (list r g b))
+  (define (make-color r g b #!optional (a 255)) (list r g b a))
   (define (render-copy! . args) #f)
   (define (render-copy-ex! . args) #f)
   (define (create-texture-from-surface . args) #f)
@@ -113,7 +113,18 @@
                                tileset-texture: #f
                                camera-target: #f)))
     (test-assert "does not crash on valid scene"
-      (begin (render-scene! #f scene) #t))))
+      (begin (render-scene! #f scene) #t)))
+
+  (let* ((cam   (make-camera x: 0 y: 0))
+         (box   (list #:x 4 #:y 8 #:width 10 #:height 12 #:color '(200 40 90)))
+         (scene (make-scene entities: (list box)
+                            tilemap: #f
+                            camera: cam
+                            tileset-texture: #f
+                            camera-target: #f))
+         (renderer #f))
+    (test-assert "no tilemap: draws #:color entities without crashing"
+      (begin (render-scene! renderer scene) #t))))
 
 (test-group "sprite-font"
   (test-group "make-sprite-font*"