Index: tests/method-parameter.test
===================================================================
diff -u -r0f881e4bc45e927c8d84c1b1b468ef7537cb9b03 -r61d81f3da45ce76f6bb9eafa4cc8a1b4c5b08953
--- tests/method-parameter.test	(.../method-parameter.test)	(revision 0f881e4bc45e927c8d84c1b1b468ef7537cb9b03)
+++ tests/method-parameter.test	(.../method-parameter.test)	(revision 61d81f3da45ce76f6bb9eafa4cc8a1b4c5b08953)
@@ -355,8 +355,25 @@
   ? {-b info superclasses -- -a} "::-a"
 }
 
+nx::test case abbrevs {
 
+  nsf::proc x {-super -super11 -superclass -super12} { 
+    return [info exists super]-[info exists super11]-[info exists superclass]-[info exists super12] 
+  }
+  ? {x -super 1} "1-0-0-0"
+  ? {x -super1 1} "the provided argument -super1 is an abbreviation for -super11 and -super12"
+  ? {x -superc 1} "0-0-1-0"
+  ? {x -super12 1} "0-0-0-1"
 
+  nsf::proc y {-aaa1 -aa1 -a1 -a} { return [info exists aaa1]-[info exists aa1]-[info exists a1]-[info exists a] }
+
+  ? {y -a 1} "0-0-0-1"
+  ? {y -aa 1} {invalid non-positional argument '-aa', valid are : -aaa1, -aa1, -a1, -a;
+ should be "y ?-aaa1 /value/? ?-aa1 /value/? ?-a1 /value/? ?-a /value/?"}
+  ? {y -aaa 1} "1-0-0-0"
+  ? {y -aa1 1} "0-1-0-0"
+}
+
 #
 # Local variables:
 #    mode: tcl