diff options
Diffstat (limited to 'tests/world-test.scm')
| -rw-r--r-- | tests/world-test.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/world-test.scm b/tests/world-test.scm index 557a121..bfbb336 100644 --- a/tests/world-test.scm +++ b/tests/world-test.scm @@ -110,7 +110,7 @@ ;; Test: scene with entities and tilemap (test-group "scene-with-data" - (let* ((player (make-entity 100 100 16 16)) + (let* ((player (entity-set (make-entity 100 100 16 16) #:type 'player)) (enemy '(#:type enemy #:x 200 #:y 200)) (tilemap "mock-tilemap") (scene (make-scene entities: (list player enemy) @@ -159,7 +159,7 @@ (let* ((e1 '(#:type player #:x 100 #:y 100)) (e2 '(#:type enemy #:x 200 #:y 200)) (scene (make-scene entities: (list e1 e2) tilemap: #f camera-target: #f)) - (move-right (lambda (entity) + (move-right (lambda (scene entity) (let ((x (entity-ref entity #:x)) (y (entity-ref entity #:y)) (type (entity-ref entity #:type))) @@ -184,7 +184,7 @@ (let* ((e1 '(#:type player #:x 100)) (e2 '(#:type enemy #:x 200)) (scene (make-scene entities: (list e1 e2) tilemap: #f camera-target: #f)) - (scene2 (scene-map-entities scene (lambda (e) e)))) + (scene2 (scene-map-entities scene (lambda (scene e) e)))) (test-equal "entity count unchanged" 2 (length (scene-entities scene2))) (test-equal "first entity unchanged" @@ -200,7 +200,7 @@ (test-equal "entity added" 1 (length (scene-entities scene))) (let ((scene (scene-map-entities scene - (lambda (e) + (lambda (scene e) (let ((x (entity-ref e #:x)) (y (entity-ref e #:y)) (type (entity-type e))) |