Enrich entities pipelining to provide scene context to processors

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