Index: tests/plain-object-method.test =================================================================== diff -u -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 -r23b10a2c736cf33731b0d7b0381314ddec44f2d6 --- tests/plain-object-method.test (.../plain-object-method.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) +++ tests/plain-object-method.test (.../plain-object-method.test) (revision 23b10a2c736cf33731b0d7b0381314ddec44f2d6) @@ -7,11 +7,11 @@ ? {o public method foo {} {return foo}} "::o: unable to dispatch method 'method'" :public object method f args {next} } - ? {o mixin M1} "::o: unable to dispatch method 'mixin'" - ? {o filter f} "::o: unable to dispatch method 'filter'" + ? {o mixin set M1} "::o: unable to dispatch method 'mixin'" + ? {o filter set f} "::o: unable to dispatch method 'filter'" ? {lsort [o info object methods]} "f" - ? {lsort [o info]} "valid submethods of ::o info: children class configure has info lookup name object parameter parent precedence variable vars" + ? {lsort [o info]} "valid submethods of ::o info: children class has info lookup name object parent precedence variable vars" } # @@ -49,18 +49,18 @@ ? {o a} "pm1" ? {o fwd} "pm1" - ? {o mixin M1} ::M1 + ? {o mixin set M1} ::M1 ? {o info mixin classes} ::M1 - ? {o mixin ""} "" + ? {o mixin set ""} "" ? {o info mixin classes} "" - ? {o filter f} f + ? {o filter set f} f ? {o info filter methods} f - ? {o filter ""} "" + ? {o filter set ""} "" ? {o info filter methods} "" ? {lsort [o info object methods]} "a f foo fwd p v2" - ? {lsort [o info]} "valid submethods of ::o info: children class configure filter has info lookup method methods mixin name object parameter parent precedence slots variable variables vars" + ? {lsort [o info]} "valid submethods of ::o info: children class filter has info lookup method methods mixin name object parent precedence slots variable variables vars" } #