Index: tests/info-method.xotcl
===================================================================
diff -u -re591522c92d208c4942888e632546262fd7641ad -r1f0231a5c7cbb8dfef4eaf78335c9ad571863660
--- tests/info-method.xotcl	(.../info-method.xotcl)	(revision e591522c92d208c4942888e632546262fd7641ad)
+++ tests/info-method.xotcl	(.../info-method.xotcl)	(revision 1f0231a5c7cbb8dfef4eaf78335c9ad571863660)
@@ -33,8 +33,20 @@
   .alias a ::set
   .alias -per-object apo ::puts
 }
+C create c1
 
-? {lsort [C info methods -defined]} "a addOne m m-with-assertions s"
+? {lsort [C info methods]} "a addOne m m-with-assertions s"
+foreach m [lsort [C info methods]] {
+  ? {lsort [c1 info callable $m]} $m
+}
+? {C info method definition a} "::C alias a ::set"
+? {c1 info callable -which a} "::C alias a ::set"
+? {c1 info callable -which addOne} "::C forward addOne expr 1 +"
+? {c1 info callable -which m} {::C method m x {return proc-[self proc]}}
+? {c1 info callable -which s} "::C setter s"
+c1 method foo {} {puts foo}
+? {c1 info method definition foo} "::c1 method foo {} {puts foo}"
+? {c1 info callable -which foo} "::c1 method foo {} {puts foo}"
 
 ? {C info method name m} "::xotcl::classes::C::m"
 ? {C info -per-object method name mpo} "::C::mpo"