Fix plist handling, add test for timed animation frames

1 files changed, 3 insertions, 0 deletions

diff --git a/tests/prefabs-test.scm b/tests/prefabs-test.scm
index e635d0a..3578b35 100644
--- a/tests/prefabs-test.scm
+++ b/tests/prefabs-test.scm
@@ -3,6 +3,7 @@
         (chicken base)
         (chicken keyword)
         (chicken port)
+	(chicken pretty-print)
         defstruct
         srfi-64)
 
@@ -65,6 +66,8 @@
       (lambda (reg)
         ;; 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 "inline field beats mixin field for same key"
             99
             (entity-ref e #:vx))