diff options
Diffstat (limited to 'tests/entity-test.scm')
| -rw-r--r-- | tests/entity-test.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/entity-test.scm b/tests/entity-test.scm index 9c7607c..3b83dff 100644 --- a/tests/entity-test.scm +++ b/tests/entity-test.scm @@ -82,12 +82,12 @@ (test-group "entity-set-many" (test-group "Set multiple entities with lists" (let ((e (entity-set-many '(#:x 10 #:y 20) '((#:x 15) (#:y 25))))) - (test-equal "value x updated" (entity-ref e #:x) 15) - (test-equal "value y updated" (entity-ref e #:y) 25))) + (test-equal "value x updated" 15 (entity-ref e #:x)) + (test-equal "value y updated" 25 (entity-ref e #:y)))) (test-group "Set multiple entities with cons" (let ((e (entity-set-many '(#:x 10 #:y 20) (list (cons #:x 15) (cons #:y 25))))) - (test-equal "value x updated" (entity-ref e #:x) 15) - (test-equal "value y updated" (entity-ref e #:y) 25)))) + (test-equal "value x updated" 15 (entity-ref e #:x)) + (test-equal "value y updated" 25 (entity-ref e #:y))))) ;; Test: entity-update applies transformations (test-group "entity-update" @@ -118,7 +118,7 @@ (test-assert "not member" (not (entity-skips-pipeline? '(#:skip-pipelines (gravity)) 'velocity-x)))) -(define-pipeline (fixture-pipeline fixture-skip) (ent) +(define-pipeline (fixture-pipeline fixture-skip) (scene_ ent) (entity-set ent #:x 42)) (test-group "define-pipeline" @@ -127,7 +127,7 @@ (let ((e '(#:type t #:x 0 #:skip-pipelines (fixture-skip)))) (test-equal "skipped" 0 (entity-ref (fixture-pipeline e) #:x)))) -(define-pipeline (guarded-pipeline guarded-skip) (ent) +(define-pipeline (guarded-pipeline guarded-skip) (scene_ ent) guard: (entity-ref ent #:active? #f) (entity-set ent #:x 99)) |