diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/engine-test.scm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/tests/engine-test.scm b/tests/engine-test.scm index 56b9a04..b026ce4 100644 --- a/tests/engine-test.scm +++ b/tests/engine-test.scm @@ -74,7 +74,8 @@ (defstruct scene entities tilemap camera tileset-texture)) (import downstroke/world) -;; --- Assets module (real) --- +;; --- Real deps --- +(import simple-logger) ;; required by input.scm (include "assets.scm") (import downstroke/assets) @@ -154,4 +155,16 @@ (test-assert "update hook is stored" (procedure? (game-update-hook g))))) +(test-group "game-camera" + (let* ((cam (make-camera x: 10 y: 20)) + (scene (make-scene entities: '() + tilemap: #f + camera: cam + tileset-texture: #f)) + (g (make-game))) + (game-scene-set! g scene) + (test-equal "returns scene camera" + cam + (game-camera g)))) + (test-end "engine") |