Index: tests/methods.test
===================================================================
diff -u -r07b40a4e9fcf594bd65394299372cd8c8556085f -r53113de78cadfd4913718676222d6021d4e7a3fc
--- tests/methods.test	(.../methods.test)	(revision 07b40a4e9fcf594bd65394299372cd8c8556085f)
+++ tests/methods.test	(.../methods.test)	(revision 53113de78cadfd4913718676222d6021d4e7a3fc)
@@ -1316,7 +1316,31 @@
   ? bar 2
 }
 
+nx::test case debug+deprecated {
+  nx::Class create C {
+    :public method foo {} {return 1}
+    :public method bar {} {return 1}
 
+    :public object method ofoo {} {return 1}
+    :public object method obar {} {return 1}
+  }
+
+  ? {C info method debug foo} 0
+  ? {C info method deprecated bar} 0
+  ? {C info object method debug ofoo} 0
+  ? {C info object method deprecated obar} 0
+
+  ? {nsf::method::property C foo debug 1} 1
+  ? {nsf::method::property C bar deprecated 1} 1
+  ? {nsf::method::property C -per-object ofoo debug 1} 1
+  ? {nsf::method::property C -per-object obar deprecated 1} 1
+
+  ? {C info method debug foo} 1
+  ? {C info method deprecated bar} 1
+  ? {C info object method debug ofoo} 1
+  ? {C info object method deprecated obar} 1
+}
+
 #
 # Local variables:
 #    mode: tcl