diff options
Diffstat (limited to 'tests/scene-loader-test.scm')
| -rw-r--r-- | tests/scene-loader-test.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/scene-loader-test.scm b/tests/scene-loader-test.scm index e86ea42..3286c70 100644 --- a/tests/scene-loader-test.scm +++ b/tests/scene-loader-test.scm @@ -36,7 +36,7 @@ (defstruct scene entities tilemap tileset camera tileset-texture camera-target background engine-update) (define (scene-add-entity scene entity) (update-scene scene - entities: (append (scene-entities scene) (list entity))))) + entities: (append (scene-entities scene) (list entity))))) (import (downstroke world)) ;; Mock assets module @@ -90,22 +90,22 @@ objects: (list obj1 obj2 obj3))) ;; mock registry: alist of (type . constructor) (registry - (list (cons 'player (lambda (x y w h) (entity #:type 'player #:x x #:y y #:width w #:height h))) - (cons 'enemy (lambda (x y w h) (entity #:type 'enemy #:x x #:y y #:width w #:height h))))) + (list (cons 'player (lambda (x y w h) (entity #:type 'player #:x x #:y y #:width w #:height h))) + (cons 'enemy (lambda (x y w h) (entity #:type 'enemy #:x x #:y y #:width w #:height h))))) (result (tilemap-objects->entities tm registry))) (test "filters #f results: 2 entities from 3 objects" - 2 (length result)) + 2 (length result)) (test "first entity is player" - 'player (entity-ref (car result) #:type)) + 'player (entity-ref (car result) #:type)) (test "second entity is enemy" - 'enemy (entity-ref (cadr result) #:type))) + 'enemy (entity-ref (cadr result) #:type))) (let* ((tm-empty (make-tilemap width: 100 height: 100 tilewidth: 16 tileheight: 16 tileset-source: "" tileset: #f layers: '() objects: '())) (result (tilemap-objects->entities tm-empty '()))) (test "empty object list returns empty list" - 0 (length result)))) + 0 (length result)))) (test-group "game-load-tilemap! / game-load-tileset! / game-load-font!" ;; game-load-tilemap! calls load-tilemap and stores result @@ -121,8 +121,8 @@ (let* ((game #f) ; mock game (game-asset-set! ignores it in mock) (font (ttf:open-font "test.ttf" 16))) (test "mock font is a list" - 'font - (car font)))) + 'font + (car font)))) (test-group "make-sprite-scene" (let ((s (make-sprite-scene))) |