Index: tests/parameters.tcl =================================================================== diff -u -r39952278bc1e3aa6dda5df7cbe4cffc399f63b98 -r18122dd21b99cf0d5b4cd01635048641a23aa051 --- tests/parameters.tcl (.../parameters.tcl) (revision 39952278bc1e3aa6dda5df7cbe4cffc399f63b98) +++ tests/parameters.tcl (.../parameters.tcl) (revision 18122dd21b99cf0d5b4cd01635048641a23aa051) @@ -7,9 +7,9 @@ set o [Object create o] puts o=$o - ? {::nsf::objectproperty ::o object} 1 + ? {::nsf::isobject ::o} 1 } -? {::nsf::objectproperty ::o object} 0 +? {::nsf::isobject ::o} 0 #exit ####################################################### @@ -36,8 +36,8 @@ ? {c1 info has mixin ::M1} {expected class but got "::M1" for parameter class} #? {::nsf::parametercheck hasmixin,arg=::M c1} 1 - ? {::nsf::objectproperty o1 object} 1 - ? {::nsf::objectproperty o1000 object} 0 + ? {::nsf::isobject o1} 1 + ? {::nsf::isobject o1000} 0 #? {::nsf::objectproperty c1 type C} 1 ? {c1 info has type C} 1