Index: tests/parameters.tcl =================================================================== diff -u -re130899462517e1170d6604b875871ce2476a3bc -rbc9096dbfe6718828baf2359730f098d66598065 --- tests/parameters.tcl (.../parameters.tcl) (revision e130899462517e1170d6604b875871ce2476a3bc) +++ tests/parameters.tcl (.../parameters.tcl) (revision bc9096dbfe6718828baf2359730f098d66598065) @@ -1339,6 +1339,30 @@ ? {f1 l1 l2 l3a 100} "{M1.l1 l2 l3a//l3a (100)} {l1 l2//l2 (l3a 100)} {FOO.l1 l2 l3a//l3a (100)}" } +Test case ensemble-partial-next { + nx::Class create M { + :method "info has namespace" {} { + next + return sometimes + } + :method "info has something else" {} { + return something + } + :method "info has something better" {} { + next + return better + } + } + nx::Object mixin add M + nx::Object create o1 + ? {o1 info has namespace} sometimes + ? {o1 info has type Object} 1 + ? {o1 info has type M} 0 + ? {o1 info has typo M} \ + {unable to dispatch method info has typo; valid subcommands of has: namespace something} + ? {o1 info has something else} something + ? {o1 info has something better} better +} Test case ensemble-upvar {