Index: TODO =================================================================== diff -u -r67ad561b71e208451454fc1d71e591e75e4f3a71 -r475bb7279b7df4c5bbdb90986ec3dfd988cf8776 --- TODO (.../TODO) (revision 67ad561b71e208451454fc1d71e591e75e4f3a71) +++ TODO (.../TODO) (revision 475bb7279b7df4c5bbdb90986ec3dfd988cf8776) @@ -1195,6 +1195,8 @@ - reavtivated corresponding regression test - extended regression tests (call unknown method with filter with and without unknown handlers) +- make sure to test next to non-existing shadowed + method in connections with filters and unknwon handlers TODO: Index: tests/interceptor-slot.tcl =================================================================== diff -u -r67ad561b71e208451454fc1d71e591e75e4f3a71 -r475bb7279b7df4c5bbdb90986ec3dfd988cf8776 --- tests/interceptor-slot.tcl (.../interceptor-slot.tcl) (revision 67ad561b71e208451454fc1d71e591e75e4f3a71) +++ tests/interceptor-slot.tcl (.../interceptor-slot.tcl) (revision 475bb7279b7df4c5bbdb90986ec3dfd988cf8776) @@ -138,11 +138,8 @@ #puts stderr "$i: $s.$m procsearch after [$s info callable method info]" return $r } - - #:method unknown {args} { - # puts stderr "use '[self] create $args', not '[self] $args'" - # uplevel [list [self] create {*}$args] - #} + # method for testing next to non-existing shadowed method + :method baz {} {next} } # define nx unknown handler in case it does not exist @@ -152,12 +149,14 @@ ? {Foo create ob} ::ob ? {ob bar} {::ob: unable to dispatch method 'bar'} + ? {ob baz} {} Foo filter myfilter # create through filter ? {Foo create ob} ::ob # unknown through filter ? {ob bar1} {::ob: unable to dispatch method 'bar1'} + ? {ob baz} {} # deactivate nx unknown handler in case it exists ::nx::Object method unknown {} {} @@ -166,6 +165,8 @@ ? {Foo create ob2} ::ob2 # unknown through filter ? {ob2 bar2} {::ob2: unable to dispatch method 'bar2'} + ? {ob2 baz} {} + }