diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-17 16:30:34 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-17 16:30:34 +0100 |
| commit | 8251c85a4a588504d38a2fad05e4b0fe1cdccb9d (patch) | |
| tree | c3fcedb7331caf798f2355c7549b35aa3aaf6ac8 /tests/prefabs-test.scm | |
| parent | 5de3b9cf122542f2a0c1c906c8ce8add20e5c8c6 (diff) | |
Convert entities to alists
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: '() |