Index: tests/parameters.xotcl =================================================================== diff -u -r2c178b51df714386e72cfcb05f89c89995668b2d -r4d21376ac1245e34cb5a5f52da893072f311d3a9 --- tests/parameters.xotcl (.../parameters.xotcl) (revision 2c178b51df714386e72cfcb05f89c89995668b2d) +++ tests/parameters.xotcl (.../parameters.xotcl) (revision 4d21376ac1245e34cb5a5f52da893072f311d3a9) @@ -2,6 +2,16 @@ package require xotcl::test ::xotcl::use xotcl2 +Test case dummy { + puts current=[::namespace current] + set o [Object create o] + puts o=$o + + ? {::xotcl::is ::o object} 1 +} +? {::xotcl::is ::o object} 0 +#exit + ####################################################### # valuecheck ####################################################### @@ -56,7 +66,6 @@ ? {::xotcl::valuecheck sex,slot=::paramManager female} "1" } - ####################################################### # cononical feature table ####################################################### @@ -206,14 +215,6 @@ # test passed arguments ####################################################### -Test case dummy { - set o [Object create o] - puts o=$o-current=[::namespace current] - - ? {::xotcl::is ::o object} 1 -} -? {::xotcl::is ::o object} 0 - Test case passed-arguments { Class create C -parameter {a {b:boolean} {c 1}}