Index: tests/object-system.test
===================================================================
diff -u -r3b5d2f4e0bc018420ebea39e54ad3212ade2a5bd -r7a1cdfcb9fbb66d49d824aa1c12547be59f590c2
--- tests/object-system.test	(.../object-system.test)	(revision 3b5d2f4e0bc018420ebea39e54ad3212ade2a5bd)
+++ tests/object-system.test	(.../object-system.test)	(revision 7a1cdfcb9fbb66d49d824aa1c12547be59f590c2)
@@ -224,6 +224,17 @@
 ? {C create c2 {:method foo {} {;}}} ::c2
 
 #
+# check low level method creation on classes, and check C-level 
+# "-flag=value" handling
+#
+nsf::method::create ::C m1 {} {;}
+? {lsort [::C ::nsf::methods::class::info::methods]} {m1 x y}
+nsf::method::create ::C -per-object=false m2 {} {;}
+? {lsort [::C ::nsf::methods::class::info::methods]} {m1 m2 x y}
+nsf::method::create ::C -per-object=true m3 {} {;}
+? {lsort [::C ::nsf::methods::object::info::methods]} {m3}
+
+#
 # tests for the dispatch command
 # 
 nx::Object create o