diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-07 23:36:12 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-07 23:36:12 +0100 |
| commit | 19a5db8606a82830a5ccd0ed46d8e0cf3c95db0a (patch) | |
| tree | 241e7376014068ab9fc7a1bc8fa7a29cc1b62490 /tests/world-test.scm | |
| parent | 618ed5fd6f5ae9c9f275c1e3cfb74762d7d51a01 (diff) | |
Work on demos
Diffstat (limited to 'tests/world-test.scm')
| -rw-r--r-- | tests/world-test.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/world-test.scm b/tests/world-test.scm index 90c26c4..b8c1a98 100644 --- a/tests/world-test.scm +++ b/tests/world-test.scm @@ -98,7 +98,15 @@ (let ((scene (make-scene entities: '() tilemap: #f camera-target: #f))) (test-assert "scene is a record" (scene? scene)) (test-equal "entities list is empty" '() (scene-entities scene)) - (test-equal "tilemap is #f" #f (scene-tilemap scene)))) + (test-equal "tilemap is #f" #f (scene-tilemap scene)) + (test-equal "background defaults to #f" #f (scene-background scene)) + (test-equal "tileset defaults to #f" #f (scene-tileset scene))) + (let ((s (make-scene entities: '() tilemap: #f camera-target: #f + background: '(40 44 52)))) + (test-equal "background RGB stored" '(40 44 52) (scene-background s))) + (let ((s (make-scene entities: '() tilemap: #f camera-target: #f + background: '(1 2 3 200)))) + (test-equal "background RGBA stored" '(1 2 3 200) (scene-background s)))) ;; Test: scene with entities and tilemap (test-group "scene-with-data" |