Index: library/xotcl/tests/speedtest.xotcl =================================================================== diff -u -N -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 -rc4f449cb353be812ba6502ef8e9587e87881f59b --- library/xotcl/tests/speedtest.xotcl (.../speedtest.xotcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) +++ library/xotcl/tests/speedtest.xotcl (.../speedtest.xotcl) (revision c4f449cb353be812ba6502ef8e9587e87881f59b) @@ -391,17 +391,17 @@ nx::test new \ -count 100 \ - -pre {Class D; Class E; Class X -instmixin {D E}} \ - -cmd {X info instmixin D} \ + -pre {Class D; Class E; Class X1 -instmixin {D E}} \ + -cmd {X1 info instmixin D} \ -expected {::D} \ - -post {foreach o {D E X} {$o destroy}} + -post {foreach o {D E X1} {$o destroy}} nx::test new \ -count 100 \ - -pre {Class D; Class E; Class X -instmixin {D E}} \ - -cmd {X info instmixin E} \ + -pre {Class D; Class E; Class X2 -instmixin {D E}} \ + -cmd {X2 info instmixin E} \ -expected {::E} \ - -post {foreach o {D E X} {$o destroy}} + -post {foreach o {D E X2} {$o destroy}} nx::test new \ -count 100 \ @@ -412,10 +412,10 @@ nx::test new \ -count 100 \ - -pre {Class D; Class E; Class X -instmixin {D E}} \ - -cmd {X info instmixin ::E*} \ + -pre {Class D; Class E; Class X3 -instmixin {D E}} \ + -cmd {X3 info instmixin ::E*} \ -expected {::E} \ - -post {foreach o {D E X} {$o destroy}} + -post {foreach o {D E X3} {$o destroy}} nx::test new \ -count 100 \ @@ -474,7 +474,7 @@ # -cmd {c2 o f 10} -expected 11 -count 5000 \ # -post {c2 destroy} -nx::test new -msg {dispatch subobject directy via [self]} \ +nx::test new -msg {dispatch subobject directly via [self]} \ -pre {C c2; C c2::o; c2::o proc f a {incr a}; c2 proc t a {[self]::o f $a}} \ -cmd {c2 t 12} -expected 13 -count 5000 \ -post {c2 destroy}