Index: library/xotcl/tests/testx.xotcl =================================================================== diff -u -N -r992c44194bc02e57151a037ebda546c287af4d03 -r5a31aba4393fd948e89acf72dfca9c40e8b93334 --- library/xotcl/tests/testx.xotcl (.../testx.xotcl) (revision 992c44194bc02e57151a037ebda546c287af4d03) +++ library/xotcl/tests/testx.xotcl (.../testx.xotcl) (revision 5a31aba4393fd948e89acf72dfca9c40e8b93334) @@ -4039,19 +4039,19 @@ o y } m errorCheck $m {required argument 'a' is missing, should be: - ::o y ?-x /value/? ?-a /value/? /a/ /b/} "wrong \# check 2" + ::o y ?-x /value/? ?-a /value/? /a/ /b/} "wrong \# check 2" catch { o y -x 1 } m errorCheck $m {required argument 'a' is missing, should be: - ::o y ?-x /value/? ?-a /value/? /a/ /b/} "wrong \# check 3" + ::o y ?-x /value/? ?-a /value/? /a/ /b/} "wrong \# check 3" catch { o z1 a 1 2 3 } m errorCheck $m {required argument 'x' is missing, should be: - ::o z1 -x /value/ ?-a /value/? /a/ ?/arg .../?} "required missing" + ::o z1 -x /value/ ?-a /value/? /a/ ?/arg .../?} "required missing" errorCheck [o z1 -x 1 a 1 2 3] "1 -- 1 2 3" "invocation 1" errorCheck [o z2 -x 2 a 1 2 3] "2 -- a 1 2 3 -- 1 -- 1 2" "invocation 2" catch { @@ -4131,7 +4131,7 @@ catch {oa foo "--"} msg errorCheck $msg {required argument 'b' is missing, should be: - ::oa foo ?-a /value/? /b/} "Non-pos arg: double dash alone" + ::oa foo ?-a /value/? /b/} "Non-pos arg: double dash alone" Class C C create c1