Index: library/xotcl/tests/speedtest.xotcl =================================================================== diff -u -N -r1279a7ecae38bb092922db436da36d0caa77cf6f -re5df69942b2d9eb3944ef709803870f476886981 --- library/xotcl/tests/speedtest.xotcl (.../speedtest.xotcl) (revision 1279a7ecae38bb092922db436da36d0caa77cf6f) +++ library/xotcl/tests/speedtest.xotcl (.../speedtest.xotcl) (revision e5df69942b2d9eb3944ef709803870f476886981) @@ -586,6 +586,16 @@ -cmd {foo; ::A info instances} -expected {} -count 2 \ -post {A destroy; rename foo ""} +nx::test new -msg {volatile + new overloaded + mixin + proc} \ + -pre { + Class MC -superclass Class;MC instproc new args {next} + Class M; M instproc new args {puts M; next} + MC A; A instmixin M + MC B -superclass A; B proc new args {next} + proc foo {} {B create b1 -volatile; b1 info class} + } \ + -cmd {foo; ::B info instances} -expected {} -count 2 \ + -post {B destroy; A destroy; M destroy; MC destroy; rename foo ""} nx::test run