Clone
Stefan Sobernig <stefan.sobernig@wu.ac.at>
committed
on 01 May 13
Remove legacy build artifacts
2-1-0-rc + 55 more
library/xotcl/tests/testx.xotcl (+1 -1)
4031 4031   errorCheck $m \
4032 4032       {invalid argument '5', maybe too many arguments; should be "::o y ?-x value? ?-a value? a b"} \
4033 4033       "wrong \# check 1"
4034 4034
4035 4035   catch {
4036 4036     o y
4037 4037   } m
4038 4038   errorCheck $m {required argument 'a' is missing, should be:
4039 4039         ::o y ?-x value? ?-a value? a b} "wrong \# check 2"
4040 4040
4041 4041   catch {
4042 4042     o y -x 1
4043 4043   } m
4044 4044   errorCheck $m {required argument 'a' is missing, should be:
4045 4045         ::o y ?-x value? ?-a value? a b} "wrong \# check 3"
4046 4046
4047 4047   catch {
4048 4048     o z1 a 1 2 3
4049 4049   } m
4050 4050   errorCheck $m {required argument 'x' is missing, should be:
4051           ::o z1 -x ?-a value? a ?arg ...?} "required missing"
  4051         ::o z1 -x value ?-a value? a ?arg ...?} "required missing"
4052 4052   errorCheck [o z1 -x 1  a 1 2 3] "1 -- 1 2 3" "invocation 1"
4053 4053   errorCheck [o z2 -x 2  a 1 2 3] "2 -- a 1 2 3 -- 1  -- 1 2" "invocation 2"
4054 4054   catch {
4055 4055     o y -x 1 -a 2 2 3
4056 4056   } m
4057 4057   errorCheck $m "can't read \"args\": no such variable" "args unset?"
4058 4058   errorCheck [o z2 -a 2 -x 1 -b 3 a b c] \
4059 4059       "1 -- a b c -- 2 -- 3" "invocation 3"
4060 4060   errorCheck [p z2 -x 1 -a 2 -b 3 a b c] \
4061 4061       "1 -- a b c -- 2 -- 3" "invocation 4"
4062 4062     errorCheck [o z3 -b true -- -b] "true -b" "dash dash"
4063 4063     errorCheck [o z5 -pos 1 a b] "1 {a b}" "nonpos with given args"
4064 4064     errorCheck [o z5 -pos 1 a] "1 a" "nonpos with given args"
4065 4065     errorCheck [o z5 -pos 1] "1 {}" "nonpos without given args"
4066 4066
4067 4067     catch {
4068 4068         o z3 -b abc -- -b
4069 4069     } m
4070 4070   errorCheck $m {expected boolean but got "abc" for parameter "-b"} "not boolean"
4071 4071