Index: tests/info-method.tcl
===================================================================
diff -u -rfb10f773e288e5a05cf0e04c5fd8cf0514fdf963 -r6a5c1dd452020683008429fc72f6897b494de15c
--- tests/info-method.tcl	(.../info-method.tcl)	(revision fb10f773e288e5a05cf0e04c5fd8cf0514fdf963)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision 6a5c1dd452020683008429fc72f6897b494de15c)
@@ -84,6 +84,25 @@
     ? {o bar} Class.bar
 
     ? {o method foo {} {return o.foo}} "::o::foo"
-    ? {o info methods} "foo"
+    ? {o alias is ::nsf::objectproperty} "::o::is"
+    ? {o setter x} "::o::x"
+    ? {lsort [o info methods]} "foo is x"
+
+    o method f args ::nx::next
+    ? {o filter f} ""
+    ? {o filterguard f { 1 }} ""
+    o filter ""
+
+    nx::Class create Fly
+    o mixin add Fly
+    ? {o info mixin} "::Fly ::nx::Class"
+    ? {o mixinguard ::Fly {1}} ""
+    o mixin delete ::Fly
+    ? {o info mixin} "::nx::Class"
+
+    ? {o attribute A} ::o::A
+    ? {o forward fwd ::set} ::o::fwd
+    ? {lsort [o info methods]} "A f foo fwd is slot x"
+
     ? {o mixin ""} ""
 }