Index: tests/parameters.tcl
===================================================================
diff -u -r29a6e282641a301a6dbe3dfea315ec285456661d -r2a2ccb5fb66078bf66fbd242592165cc43f7b87d
--- tests/parameters.tcl	(.../parameters.tcl)	(revision 29a6e282641a301a6dbe3dfea315ec285456661d)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision 2a2ccb5fb66078bf66fbd242592165cc43f7b87d)
@@ -1297,3 +1297,26 @@
   ? {c1 f32} 1
 }
 
+Test case check-arguments {
+
+  Class create Foo {
+    :method noarg {} {return ""} 
+    :method onearg {-x} {return $x} 
+    :method intarg {-x:integer} {return $x} 
+    :method intsarg {-x:integer,multivalued} {return $x} 
+    :method boolarg {-x:boolean} {return $x} 
+    :method classarg {-x:class} {return $x} 
+    :method upperarg {-x:upper} {return $x} 
+    :method metaclassarg {-x:metaclass} {return $x} 
+  }
+
+  ? {Foo info method parametersyntax noarg} ""
+  ? {Foo info method parametersyntax onearg} "?-x arg?"
+  ? {Foo info method parametersyntax intarg} "?-x integer?"
+  ? {Foo info method parametersyntax intsarg} "?-x integer list?"
+  ? {Foo info method parametersyntax boolarg} "?-x boolean?"
+  ? {Foo info method parametersyntax classarg} "?-x class?"
+  ? {Foo info method parametersyntax upperarg} "?-x upper?"
+  ? {Foo info method parametersyntax metaclassarg} "?-x metaclass?"
+  
+}
\ No newline at end of file