Index: xotcl/tests/testx.xotcl =================================================================== diff -u -rcaee4f272cfc744a06a7df61e2f3c73da1b6be64 -raabbb5f35122b456414873fb6acb13564cc37c1f --- xotcl/tests/testx.xotcl (.../testx.xotcl) (revision caee4f272cfc744a06a7df61e2f3c73da1b6be64) +++ xotcl/tests/testx.xotcl (.../testx.xotcl) (revision aabbb5f35122b456414873fb6acb13564cc37c1f) @@ -1,4 +1,4 @@ -#$Id: testx.xotcl,v 1.35 2007/10/05 09:06:00 neumann Exp $ +#$Id: testx.xotcl,v 1.36 2007/10/12 19:53:32 neumann Exp $ package require XOTcl namespace import -force xotcl::* @@ -2934,18 +2934,18 @@ namespace delete foo ::errorCheck [Object isobject ::foo::Foo] 0 "Namespace delete under object" - # destroy test - set x [Object create x] - x destroy - ::errorCheck [catch {$x set a 1}] 1 "Reference to destroyed object still valid" + # destroy test + set x [Object create x] + x destroy + ::errorCheck [catch {$x set a 1}] 1 "Reference to destroyed object still valid" - Object create x -volatile - unset x - ::errorCheck [catch {x destroy}] 1 "Object should not exist anymore" + Object create x -volatile + unset x + ::errorCheck [catch {x destroy}] 1 "Object should not exist anymore" - Object create x -volatile - x destroy - ::errorCheck [catch {unset x}] 1 "Variable should not exist anymore" + Object create x -volatile + x destroy + ::errorCheck [catch {unset x}] 1 "Variable should not exist anymore" }