diff options
Diffstat (limited to 'tests/renderer-test.scm')
| -rw-r--r-- | tests/renderer-test.scm | 15 |
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*" |