diff options
Diffstat (limited to 'tests/prefabs-test.scm')
| -rw-r--r-- | tests/prefabs-test.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/prefabs-test.scm b/tests/prefabs-test.scm index 3578b35..ab7b5f1 100644 --- a/tests/prefabs-test.scm +++ b/tests/prefabs-test.scm @@ -67,7 +67,7 @@ ;; Inline #:vx 99 beats mixin #:vx 5 (let ((e (instantiate-prefab reg 'runner 0 0 16 16))) (pp e) - (test-equal "entity should have squashed properties" 14 (length e)) + (test-equal "entity should have squashed properties" 7 (length e)) (test-equal "inline field beats mixin field for same key" 99 (entity-ref e #:vx)) @@ -143,9 +143,8 @@ ;; (Data files only contain symbols; this tests the procedure? branch directly.) (let* ((hook-proc (lambda (e) (entity-set e #:proc-fired #t))) (reg (make-prefab-registry - prefabs: (list (cons 'proc-hooked - (list #:type 'proc-hooked - #:on-instantiate hook-proc))) + prefabs: `((proc-hooked . ((#:type . proc-hooked) + (#:on-instantiate . ,hook-proc)))) group-prefabs: '() file: "/dev/null" engine-mixin-table: '() |