Index: tests/disposition.test =================================================================== diff -u -N -r59e100d383b22ea1407f5e5c40e303f2c6bb9027 -r33d4fb2329d25b2a4e9ba05d312dfde2c73c3409 --- tests/disposition.test (.../disposition.test) (revision 59e100d383b22ea1407f5e5c40e303f2c6bb9027) +++ tests/disposition.test (.../disposition.test) (revision 33d4fb2329d25b2a4e9ba05d312dfde2c73c3409) @@ -1162,6 +1162,7 @@ # ... at the called object level Object create ::callee { + ::nsf::object::property [self] perobjectdispatch true :public method foo {} { error [::nsf::current]-[::nsf::current methodpath] } @@ -1200,6 +1201,8 @@ nx::Test case dispo-object-targets { Object create obj + ::nsf::object::property obj perobjectdispatch true + Class create C Class create T { :public class method setObjectParams {spec} { @@ -1245,13 +1248,15 @@ } } + ::obj mixin UnknownHandler ? {[T create t] z uff} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-uff-PATH-z" \ "Aliased dispatch to unknown method (custom unknown handler)" - + puts stderr ===2 set x [UnknownHandler create handledObj] + ::nsf::object::property handledObj perobjectdispatch true + set methods(ix) [::nsf::method::alias ::obj ix $x] - ? {[T create t] z ix baff} "CURRENT-$x-DELEGATOR-::obj-UNKNOWNMETHOD-baff-PATH-z ix" \ "Aliased dispatch to unknown method (custom unknown handler)"