Work on demos

1 files changed, 6 insertions, 2 deletions

diff --git a/tests/engine-test.scm b/tests/engine-test.scm
index 85481ac..f886165 100644
--- a/tests/engine-test.scm
+++ b/tests/engine-test.scm
@@ -19,6 +19,8 @@
   (define (create-window! . args) 'mock-window)
   (define (create-renderer! . args) 'mock-renderer)
   (define (destroy-window! . args) #f)
+  (define (make-color r g b #!optional (a 255)) (list r g b a))
+  (define render-draw-color (getter-with-setter (lambda (r) #f) (lambda (r c) #f)))
   (define (render-clear! . args) #f)
   (define (render-present! . args) #f)
   (define (make-rect x y w h) (list x y w h))
@@ -82,7 +84,7 @@
   (import scheme (chicken base) defstruct)
   (import downstroke-entity)
   (defstruct camera x y)
-  (defstruct scene entities tilemap camera tileset-texture camera-target)
+  (defstruct scene entities tilemap tileset camera tileset-texture camera-target background)
   ;; Mock camera-follow! - just clamps camera position
   (define (camera-follow! camera entity viewport-w viewport-h)
     (camera-x-set! camera (max 0 (- (entity-ref entity #:x 0) (/ viewport-w 2))))
@@ -193,9 +195,11 @@
   (let* ((cam (make-camera x: 10 y: 20))
          (scene (make-scene entities: '()
                              tilemap: #f
+                             tileset: #f
                              camera: cam
                              tileset-texture: #f
-                             camera-target: #f))
+                             camera-target: #f
+                             background: #f))
          (g (make-game)))
     (game-scene-set! g scene)
     (test-equal "returns scene camera"