Index: tests/info-method.tcl
===================================================================
diff -u -r51725aa434e18e9e3ce656897011c4f40c98d8dd -rb70d9bb2e0b19e3cb5f397a4b168d79d3047ceb9
--- tests/info-method.tcl	(.../info-method.tcl)	(revision 51725aa434e18e9e3ce656897011c4f40c98d8dd)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision b70d9bb2e0b19e3cb5f397a4b168d79d3047ceb9)
@@ -215,6 +215,9 @@
     ? {o mixin ""} ""
 }
 
+#
+# test info slots / info lookup slots
+#
 Test case slots {
 
   nx::Class create C {
@@ -235,7 +238,9 @@
   ? {::nx::Object info method parameter info} ""
 }
 
-
+#
+# test info submethod and method handles for submethods
+#
 Test case info-submethod {
 
   nx::Object create o {
@@ -335,3 +340,22 @@
 
   ? {o info method handle "foo b"} "::o::foo b"
 }
+
+#
+# test "info methods -expand"
+#
+Test case info-methods-expand {
+  ::nx::Object create o1
+  ? {::nx::Object info methods "info"} "info"
+  ? {::nx::Object info methods -expand "info"} ""
+  ? {lsort [::nx::Object info methods -expand "info lookup *"]} \
+      "{info lookup filter} {info lookup method} {info lookup methods} {info lookup slots}"
+  ? {lsort [::nx::Object info methods -expand "info *method*"]} \
+      "{info filter methods} {info lookup method} {info lookup methods} {info method} {info methods}"
+  ? {lsort [::nx::Object info methods "slots"]} ""
+  ? {lsort [::nx::Object info methods "*slots*"]} ""
+  ? {lsort [::nx::Object info methods -expand "*slots*"]} \
+      "{info lookup slots} {info slots}"
+  ? {lsort [::nx::Object info methods -expand "*filter*"]} \
+      "filter {info filter guard} {info filter methods} {info lookup filter}"
+}
\ No newline at end of file