Index: tests/disposition.test =================================================================== diff -u -rcd33e8cefca1d52063ebcb6689e46527bb94e33d -r85ee1fdb043ed3f82fd272cc004c476c40861fdb --- tests/disposition.test (.../disposition.test) (revision cd33e8cefca1d52063ebcb6689e46527bb94e33d) +++ tests/disposition.test (.../disposition.test) (revision 85ee1fdb043ed3f82fd272cc004c476c40861fdb) @@ -1358,15 +1358,15 @@ ::xotcl::Class create XC -parameter {a b c} ::XC instproc init args {set :x $args; incr :y} + ? {XC create xc1 -a 1} ::xc1 + ? {XC create xc2 x y -a 1} ::xc2 + ::nx::Class create C { :property a :property b :property c :method init args {set :x $args; incr :y} } - - ? {XC create xc1 -a 1} ::xc1 - ? {XC create xc2 x y -a 1} ::xc2 ? {C create c1 -a 1} ::c1 ? {xc2 eval {info exists :a}} 1