Index: tests/interceptor-slot.tcl =================================================================== diff -u -r29ea21bd3f28ea7effaca6039e59a8a3499f8fd8 -rd1ed482555d4d28dbb41fb9ca2723eabb5e01221 --- tests/interceptor-slot.tcl (.../interceptor-slot.tcl) (revision 29ea21bd3f28ea7effaca6039e59a8a3499f8fd8) +++ tests/interceptor-slot.tcl (.../interceptor-slot.tcl) (revision d1ed482555d4d28dbb41fb9ca2723eabb5e01221) @@ -144,6 +144,7 @@ # define nx unknown handler in case it does not exist ::nx::Object protected method unknown {m args} { + puts stderr XXXXX error "[::nsf::current object]: unable to dispatch method '$m'" } @@ -155,7 +156,9 @@ # create through filter ? {Foo create ob} ::ob # unknown through filter +puts stderr ======a ? {ob bar1} {::ob: unable to dispatch method 'bar1'} +puts stderr ======b ? {ob baz} {} # deactivate nx unknown handler in case it exists @@ -164,10 +167,14 @@ # create through filter ? {Foo create ob2} ::ob2 # unknown through filter +puts stderr ======c ? {ob2 bar2} {::ob2: unable to dispatch method 'bar2'} +puts stderr ======d ? {ob2 baz} {} } +puts stderr ======EXIT +