Index: tests/disposition.test =================================================================== diff -u -N -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 -rf67408d8e6f8ba9bdd6e4ec3c54dfa3a23576161 --- tests/disposition.test (.../disposition.test) (revision a24e1f836c3126d0a0e9467bde3a9fa8da901711) +++ tests/disposition.test (.../disposition.test) (revision f67408d8e6f8ba9bdd6e4ec3c54dfa3a23576161) @@ -1304,6 +1304,7 @@ ? {T create tt YYY} "CURRENT-::obj-DELEGATOR-::tt-UNKNOWNMETHOD-YYY-PATH-z" \ "sending the msg: tt->z(::obj)->YYY()" + ::obj mixin {} T setObjectParams [list -z:alias] ? {T create tt -z YYY} "::obj: unable to dispatch method 'YYY'" "sending the msg: tt->z(::obj)->YYY()" @@ -1323,22 +1324,20 @@ T setObjectParams [list -z:alias] ? {T create tt -z ""} "CURRENT-::obj-DELEGATOR-::tt-UNKNOWNMETHOD--PATH-z" "sending the msg: tt->z()" + # - # ISSUE: Any direct dispatch with a FQ selector is forbidden, why? + # Dispatch with a method handle # ::T mixin {} ? [list [T create t] $methods(z) XXX] \ - "::t: unable to dispatch method '::nsf::classes::T::z'" + "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" - # - # This it at least consistent :) - # T setObjectParams x:alias,method=$methods(z) - ? {T create t XXX} "::t: unable to dispatch method '$methods(z)'" \ + ? {T create t XXX} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" \ "Non-object FQ selector with default unknown handler" ::T mixin UnknownHandler - ? {T create t XXX} "UNKNOWNMETHOD-::nsf::classes::T::z" \ + ? {T create t XXX} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" \ "Non-object FQ selector with custom unknown handler" #