Index: tests/methods.test =================================================================== diff -u -r371cc41c32db500cb1d5bcab139ef65299ef4d6c -rb2ab13e5c3240fc43e2f1e687999872636fea5f4 --- tests/methods.test (.../methods.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) +++ tests/methods.test (.../methods.test) (revision b2ab13e5c3240fc43e2f1e687999872636fea5f4) @@ -493,7 +493,7 @@ ? {C x get} 1 ? {lsort [C info methods]} "a" ? {lsort [C info object methods]} "x" - ? {c1 a set b} {expected integer but got "b" for parameter "value"} + ? {c1 a set b} {expected integer but got "b" for parameter "a"} set s(C) [C serialize] set s(c1) [c1 serialize] @@ -515,7 +515,7 @@ ? {C x get} 1 ? {lsort [C info methods]} "a" ? {lsort [C info object methods]} "x" - ? {c1 a set b} {expected integer but got "b" for parameter "value"} + ? {c1 a set b} {expected integer but got "b" for parameter "a"} } # Index: tests/parameters.test =================================================================== diff -u -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 { Index: tests/properties.test =================================================================== diff -u -r275da34d3d7a874a451eced58242b738c8a37d1a -rb2ab13e5c3240fc43e2f1e687999872636fea5f4 --- tests/properties.test (.../properties.test) (revision 275da34d3d7a874a451eced58242b738c8a37d1a) +++ tests/properties.test (.../properties.test) (revision b2ab13e5c3240fc43e2f1e687999872636fea5f4) @@ -731,9 +731,9 @@ ? {o1 b set {1 2 3}} {1 2 3} ? {o1 a set ""} {} - ? {o1 b set ""} {invalid value for parameter 'value': list is not allowed to be empty} + ? {o1 b set ""} {invalid value for parameter 'b': list is not allowed to be empty} ? {o1 c set ""} {} - ? {o1 d set ""} {invalid value for parameter 'value': list is not allowed to be empty} + ? {o1 d set ""} {invalid value for parameter 'd': list is not allowed to be empty} }