Index: tests/method-modifiers.test
===================================================================
diff -u -rbd1cce484140aaf66113cf647f060ae48d32b24f -r9246ffdfb2716a6abbf3709990abb9c4453eb461
--- tests/method-modifiers.test	(.../method-modifiers.test)	(revision bd1cce484140aaf66113cf647f060ae48d32b24f)
+++ tests/method-modifiers.test	(.../method-modifiers.test)	(revision 9246ffdfb2716a6abbf3709990abb9c4453eb461)
@@ -361,3 +361,23 @@
   ? {c1 a b} {expected integer but got "b" for parameter "a"}  
 }
 
+#
+# Test method deletion
+#
+Test parameter count 1
+
+Test case methoddelete {
+  nx::Class create C {
+    :public method foo {x} {return $x}
+    :public class-object method bar {x} {return $x}
+    :create c1
+  }
+  
+  ? {::nsf::methoddelete C x} "Object C: method x is not defined"
+  #? {::nsf::methoddelete C -per-object x} "Object C: method x is not defined"
+  ? {::nsf::methoddelete C foo} ""
+  ? {::nsf::methoddelete C foo} "Object C: method foo is not defined"
+  ? {::nsf::methoddelete C bar} "Object C: method bar is not defined"
+  ? {::nsf::methoddelete C -per-object bar} ""
+  #? {::nsf::methoddelete C -per-object bar} ""
+}
\ No newline at end of file