oop - 在测试用例中添加特征时获取 'ObsoleteTrait'

Question

我有问题。

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

|mapeos obj myClass|

myClass := Smalltalk at: #ClaseForTesting.

myClass addToComposition: TraitPruebaCondicion1.

#ClaseForTesting是一个空类

当闲聊时

myClass addToComposition: TraitPruebaCondicion1

如果我(调试)尝试获得特征

myClass traits 

我得到

an OrderedCollection(AnObsoleteTraitPruebaCondicion1)

为什么要添加 AnObsolete在字符串特征名称中？
如果我在工作区中运行相同的代码，它工作得很好。

为什么会这样？有什么想法吗？
请，它的紧急:(

Answer 1

我不敢相信我被这个问题困扰了很多时间，然后当我最终决定向人们提问时，我在两分钟内解决了它。为我感到羞耻。这个网站一定是某种神秘的头脑 Storm 。

无论如何，线索是使用

Smalltalk at: #

也有特质! (我只在类里面使用它)

所以

myClass addToComposition:(Smalltalk at: #TraitPruebaCondicion1).

解决我的问题。