Fixes, updated license

1 files changed, 14 insertions, 2 deletions

diff --git a/tests/engine-test.scm b/tests/engine-test.scm
index 79b475e..85481ac 100644
--- a/tests/engine-test.scm
+++ b/tests/engine-test.scm
@@ -104,7 +104,8 @@
 ;; --- Renderer module (mock) ---
 (module downstroke-renderer *
   (import scheme (chicken base))
-  (define (render-scene! . args) #f))
+  (define (render-scene! . args) #f)
+  (define (render-debug-scene! . args) #f))
 (import downstroke-renderer)
 
 ;; --- Engine module (real) ---
@@ -141,7 +142,10 @@
     (test-assert "assets registry is created"
       (game-assets g))
     (test-assert "input state is created"
-      (game-input g))))
+      (game-input g))
+    (test-equal "debug? defaults to #f"
+      #f
+      (game-debug? g))))
 
 (test-group "make-game with keyword args"
   (let ((g (make-game title: "My Game" width: 320 height: 240 frame-delay: 33)))
@@ -150,6 +154,14 @@
     (test-equal "custom height" 240 (game-height g))
     (test-equal "custom frame-delay" 33 (game-frame-delay g))))
 
+(test-group "make-game debug? keyword"
+  (test-equal "debug? defaults to #f"
+    #f
+    (game-debug? (make-game)))
+  (test-equal "debug? can be set to #t"
+    #t
+    (game-debug? (make-game debug?: #t))))
+
 (test-group "game-asset and game-asset-set!"
   (let ((g (make-game)))
     (test-equal "missing key returns #f"