Index: tests/info-method.tcl
===================================================================
diff -u -rd168a26bce713de8daa5bbe79d740926e961c5bc -ra3b0e40438f4c944dac1c34387f4292e012f4bd0
--- tests/info-method.tcl	(.../info-method.tcl)	(revision d168a26bce713de8daa5bbe79d740926e961c5bc)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision a3b0e40438f4c944dac1c34387f4292e012f4bd0)
@@ -247,6 +247,18 @@
   ? {o info method definition "::nx::Object::slot::__info::lookup::methods"} \
       {::nx::Object::slot::__info::lookup alias methods ::nsf::cmd::ObjectInfo::lookupmethods}
 
+  ? {lsort [o info method subcommands dummy]} ""
+  ? {lsort [o info method subcommands foo]} "a b"
+  ? {lsort [o info method subcommands "foo a"]} ""
+
+  ? {lsort [C info method subcommands "bar"]} "a b baz"
+  ? {lsort [C info method subcommands "bar a"]} ""
+  ? {lsort [C info method subcommands "bar baz"]} "x y"
+  ? {lsort [C info method subcommands "bar baz y"]} ""
+
+  ? {lsort [C class-object info method subcommands "foo"]} "x y"
+  ? {lsort [C class-object info method subcommands "foo x"]} ""
+
   ? {C info method handle "bar"} {::nsf::classes::C::bar}
   ? {C info method handle "bar a"} {::nsf::classes::C::bar a}
   ? {C info method handle "bar baz y"} {::nsf::classes::C::bar baz y}