Index: tests/parameters.tcl
===================================================================
diff -u -r649c33f8bca87b389877c3e3c1b7eb8e1182c843 -r915842c26db98121eb7ed1c6adfbe499ce586cac
--- tests/parameters.tcl	(.../parameters.tcl)	(revision 649c33f8bca87b389877c3e3c1b7eb8e1182c843)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision 915842c26db98121eb7ed1c6adfbe499ce586cac)
@@ -25,16 +25,25 @@
   c1 mixin M
 
   ? {::nsf::parametercheck object o1} 1
+  ? {::nsf::parametercheck -nocomplain object o1} 1
+  ? {::nsf::parametercheck -nocomplain object o1000} 0
   ? {::nsf::parametercheck integer 1} 1
+  ? {::nsf::parametercheck object,type=::C c1} 1
+  ? {::nsf::parametercheck hasmixin,arg=::M c1} 1
+  
+  #D method foo-hasmixin {x:hasmixin,arg=::M} {return $x}
+  #D method foo-type     {x:object,type=::C} {return $x}
 
   ? {::nsf::objectproperty o1 object} 1
+  ? {::nsf::objectproperty o1000 object} 0
   ? {::nsf::objectproperty c1 type C} 1
 
   ? {::nsf::is c1 object -type C} 1
   ? {::nsf::is c1 object -hasmixin M -type C} 1
   ? {::nsf::is c1 object -hasmixin M1 -type C} 0
   ? {::nsf::is c1 object -hasmixin M -type C0} 0
   ? {::nsf::is o1 object} 1
+  ? {::nsf::is o100 object} 0
   ? {::nsf::is 1 integer} 1
   ? {::nsf::is c1 type C} 1
   ? {::nsf::is o type C} 0