floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests for component retrieval in entity

Browse source
This commit is contained in:
Renaud Casenave-Péré 2016-09-07 15:12:33 +02:00
parent 9f8990adae
commit 284a55a5ae
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/entity.lisp
View file

@ -17,7 +17,7 @@
(clrhash stoe/core/entity::*component-dependencies*))
(eval-when (:compile-toplevel)
(plan 18)
(plan 21)
(diag "Define components"))
(defcomponent comp-base1 ()
@ -101,6 +101,9 @@
(is (length (all-components ent3)) 2 "all-components 3")
(is (length (components ent3 'comp-derived1)) 1 "get-component comp-derived1")
(is (length (components ent3 'comp-derived2)) 1 "get-component comp-derived2")
(is (length (components ent3 'comp-base1)) 1 "get-components comp-base1")
(is (length (components ent3 'comp-base2)) 1 "get-components comp-base2")
(is (length (components ent3 'comp-base1 nil)) 0 "get-components comp-base1 non-recursive")
(defparameter ent4 (create-entity "ent4"
comp1