Index: tests/destroy.test =================================================================== diff -u -r6032993b17135284877122cb24dbb65164252934 -r4454585cc13933eceea7815732a3d889e47a0f97 --- tests/destroy.test (.../destroy.test) (revision 6032993b17135284877122cb24dbb65164252934) +++ tests/destroy.test (.../destroy.test) (revision 4454585cc13933eceea7815732a3d889e47a0f97) @@ -622,17 +622,27 @@ # create object Foo create f1 { :bar; :baz; :destroy } - ? {info command f1} "" + ? {info command f1} "" "explicit destroy of object" set c [nx::Class new { :public method bar {} {return 1} :public method baz {} {return 2} - :create new { :bar; :baz; :destroy } + :new { :bar; :baz; :destroy } :destroy }] - ? [list info command $c] "" + ? [list info command $c] "" "explicit destroy of class" + # create new class and object and cleanup everything + set x [nx::Class new { + :volatile + :public method bar {} {return 1} + :public method baz {} {return 2} + :new { :volatile; :bar; :baz } + }] + + ? [list info command $x] "" "destroy via volatile" + } #puts stderr "==== EXIT ===="