Index: tests/info-method.tcl
===================================================================
diff -u -rb70d9bb2e0b19e3cb5f397a4b168d79d3047ceb9 -r404ad6bfcb313983a0cc54d3323751008bca991b
--- tests/info-method.tcl	(.../info-method.tcl)	(revision b70d9bb2e0b19e3cb5f397a4b168d79d3047ceb9)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision 404ad6bfcb313983a0cc54d3323751008bca991b)
@@ -345,7 +345,9 @@
 # test "info methods -expand"
 #
 Test case info-methods-expand {
-  ::nx::Object create o1
+  #
+  # test case on base class
+  #
   ? {::nx::Object info methods "info"} "info"
   ? {::nx::Object info methods -expand "info"} ""
   ? {lsort [::nx::Object info methods -expand "info lookup *"]} \
@@ -358,4 +360,20 @@
       "{info lookup slots} {info slots}"
   ? {lsort [::nx::Object info methods -expand "*filter*"]} \
       "filter {info filter guard} {info filter methods} {info lookup filter}"
+
+  ::nx::Object create o1
+  ::nx::Class create C {
+    :public method "string length" {s} {puts length}
+    :public method "string reverse" {s} {puts reverse}
+    :public method foo {} {puts foo}
+    :protected method "a b c" {} {puts "a b c"}
+    :protected method "a b d" {} {puts "a b d"}
+    :public method "a c" {d c} {puts "a c"}
+  }
+  
+  ? {lsort [C info methods -expand -callprotection all]} \
+      "{a b c} {a b d} {a c} foo {string length} {string reverse}"
+  ? {lsort [C info methods -expand]} \
+      "{a c} foo {string length} {string reverse}"
+  
 }
\ No newline at end of file