Index: tests/object-system.test =================================================================== diff -u -ra467cf37f204cc977b7af7519a0994c65f9ed10f -rf9dbc318044af9e7cc6114171f0f06120b249ab5 --- tests/object-system.test (.../object-system.test) (revision a467cf37f204cc977b7af7519a0994c65f9ed10f) +++ tests/object-system.test (.../object-system.test) (revision f9dbc318044af9e7cc6114171f0f06120b249ab5) @@ -170,7 +170,7 @@ Object create o {set :x 1} ::nsf::object::dispatch ::o ::incr x ? {o eval {set :x}} 1 "cmd dispatch without -frame object did not modify the instance variable" -::nsf::object::dispatch ::o -frame object ::incr x +::nsf::method::dispatch ::o -frame object ::incr x ? {o eval {set :x}} 2 "cmd dispatch -frame object modifies the instance variable" ? {catch {::nsf::object::dispatch ::o -frame object ::xxx x}} 1 "cmd dispatch with unknown command" o destroy @@ -183,9 +183,9 @@ return $results } } -::nsf::object::dispatch o ::eval {set x1 1; set :y1 1} -::nsf::object::dispatch o -frame method ::eval {set x2 1; set :y2 1} -::nsf::object::dispatch o -frame object ::eval {set x3 1; set :y3 1} +::nsf::method::dispatch o ::eval {set x1 1; set :y1 1} +::nsf::method::dispatch o -frame method ::eval {set x2 1; set :y2 1} +::nsf::method::dispatch o -frame object ::eval {set x3 1; set :y3 1} ? {o foo} "x1 0 y1 0 x2 0 y2 1 x3 1 y3 1" o destroy