Oop 获得'；淘汰'；在测试用例中添加特征时

我有个问题

我正在测试用例中使用代码 事情是这样开始的

|mapeos obj myClass|

myClass := Smalltalk at: #ClaseForTesting.

myClass addToComposition: TraitPruebaCondicion1.

#ClaseForTesting

是一个空的类

什么时候说闲话

myClass addToComposition: TraitPruebaCondicion1

如果我（调试）尝试获取特性

myClass traits 

我要走了

an OrderedCollection(AnObsoleteTraitPruebaCondicion1)

为什么要在字符串trait name中添加

anobsolite

？ 如果我在工作区中运行相同的代码，它会非常好地工作

为什么会这样？有什么想法吗？

---

求求你，这很紧急：（

我真不敢相信我被困在这个问题上太久了，当我最终决定向人们询问时，我已经在两分钟内解决了它。真可耻。这一定是这个网站的某种神秘头脑风暴

总之，线索是使用

Smalltalk at: #

也有这种特质！（我只是在课堂上使用它）

所以

解决我的问题

myClass addToComposition:(Smalltalk at: #TraitPruebaCondicion1).