Index: tests/info-method.xotcl =================================================================== diff -u -r04747ba752ca2b7a4f30586348e39ab04f190da9 -rbf9bae94d157de9bbd4c398f6a3a9a4d93626025 --- tests/info-method.xotcl (.../info-method.xotcl) (revision 04747ba752ca2b7a4f30586348e39ab04f190da9) +++ tests/info-method.xotcl (.../info-method.xotcl) (revision bf9bae94d157de9bbd4c398f6a3a9a4d93626025) @@ -36,7 +36,7 @@ C create c1 ? {lsort [C info methods -callprotection all]} "a addOne m m-with-assertions s" -? {lsort [C info methods]} "a addOne s" +#? {lsort [C info methods]} "a addOne s" foreach m [lsort [C info methods -callprotection all]] { ? [subst -nocommands {lsort [c1 info callable $m]}] $m } @@ -59,7 +59,7 @@ {::C method m-with-assertions {} {return proc-[self proc]} -precondition 1 -postcondition 2} ? {C info method parameter m} {x} ? {Class info method parameter method} \ - {-inner-namespace -per-object -protected name args body -precondition -postcondition} + {{-per-object:switch 0} {-public:switch 0} {-protected:switch 0} name arguments body -precondition -postcondition} ? {Object info method parameter alias} \ {{-objscope:switch 0} {-protected:switch 0} methodName cmd} # raises currently an error