Index: TODO =================================================================== diff -u -N -rd66258cafa0a21e1b10fa42951de7e71f63a1817 -r3f34f07ea7f3fcee21a4b48d402dd4c20da2a6de --- TODO (.../TODO) (revision d66258cafa0a21e1b10fa42951de7e71f63a1817) +++ TODO (.../TODO) (revision 3f34f07ea7f3fcee21a4b48d402dd4c20da2a6de) @@ -4957,7 +4957,7 @@ NsfParameterInvalidateClassCacheCmd unless during shutdown. Otherwise some classes might not become aware of properties added later to superclasses. -- extended regression test +- extend regression test ======================================================================== TODO: Index: tests/properties.test =================================================================== diff -u -N -rb0bfe3f3bf2e7fd2c14c58eeedca34b734803ecd -r3f34f07ea7f3fcee21a4b48d402dd4c20da2a6de --- tests/properties.test (.../properties.test) (revision b0bfe3f3bf2e7fd2c14c58eeedca34b734803ecd) +++ tests/properties.test (.../properties.test) (revision 3f34f07ea7f3fcee21a4b48d402dd4c20da2a6de) @@ -918,8 +918,33 @@ } +nx::test case dynamic-transitive-mixin-info { + + nx::Class create Foo + nx::Class create Bar + nx::Class create Baz + Bar create bar; # cache object parameters in class Bar + Baz create baz; # cache object parameters in class Baz + ? {llength [Bar info configure parameters]} 4 + Foo property y + ? {llength [Bar info configure parameters]} 4 + Bar mixin add Foo + ? {llength [Bar info configure parameters]} 5 + ? {bar configure -y 1} "" + + ? {llength [Baz info configure parameters]} 4 + Baz mixin add Bar + ? {llength [Baz info configure parameters]} 5 + + Foo property z + ? {llength [Baz info configure parameters]} 6 + ? {baz configure -z 1} "" + ? {bar configure -z 1} "" + +} + # # Local variables: # mode: tcl