Re-format

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)))