Index: tests/parameters.test =================================================================== diff -u -N -r31c3da1f75d17f7c3e10dc4d1652dacf57716bb6 -rb2ab13e5c3240fc43e2f1e687999872636fea5f4 --- tests/parameters.test (.../parameters.test) (revision 31c3da1f75d17f7c3e10dc4d1652dacf57716bb6) +++ tests/parameters.test (.../parameters.test) (revision b2ab13e5c3240fc43e2f1e687999872636fea5f4) @@ -508,7 +508,7 @@ Foo create foo -ints {1 2} ? {foo ints add 0} "0 1 2" - ? {foo ints add a} {expected integer but got "a" for parameter "value"} + ? {foo ints add a} {expected integer but got "a" for parameter "ints"} } ####################################################### @@ -1162,7 +1162,7 @@ "value is a list of objects (multiple elements)" ? {p os set {o xxx d1}} \ - {invalid value in "o xxx d1": expected object but got "xxx" for parameter "value"} \ + {invalid value in "o xxx d1": expected object but got "xxx" for parameter "os"} \ "list with invalid object" } @@ -1272,7 +1272,7 @@ # } :property -accessor public sex:sex,convert { :object method type=sex {name value} { - #puts stderr "[self] slot specific converter" + puts stderr "[self] slot specific converter" switch -glob $value { m* {return m} f* {return f} @@ -1284,8 +1284,9 @@ } Person create p1 -sex male - ? {p1 cget -sex} m - ? {p1 sex get} m + # ? {p1 cget -sex} m + # ? {p1 sex get} m + # args=obj var sex:sex,slot=::Person::slot::sex,convert Person public method foo {s:sex,slot=::Person::slot::sex,convert} {return $s} ? {p1 foo male} m ? {p1 sex set male} m @@ -2390,8 +2391,8 @@ :j add 2 ? [list [self] i get] "2 1" ? [list [self] j get] "2 1" - ? [list [self] i add a] {expected integer but got "a" for parameter "value"} - ? [list [self] j add a] {expected integer but got "a" for parameter "value"} + ? [list [self] i add a] {expected integer but got "a" for parameter "i"} + ? [list [self] j add a] {expected integer but got "a" for parameter "j"} } nx::Class create C {