From 78a924defabc862a7cfa5476091152c1ef5333ee Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Mon, 6 Apr 2026 03:41:09 +0100 Subject: Fixes, updated license --- tests/engine-test.scm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'tests/engine-test.scm') 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" -- cgit v1.2.3