在testCase中添加特征时获取'ObsoleteTrait'

Question

我遇到了问题。

我在testCase中使用代码 它就像这样开始

|mapeos obj myClass|

myClass := Smalltalk at: #ClaseForTesting.

myClass addToComposition: TraitPruebaCondicion1.

#ClaseForTesting是一个emptyClass

当smalltalk做的时候

myClass addToComposition: TraitPruebaCondicion1

如果我（调试）试图获得特征

myClass traits 

我正在

an OrderedCollection(AnObsoleteTraitPruebaCondicion1)

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

为什么会这样？有任何想法吗？ 请紧急:(

Answer 1

我无法相信我被困在这很多时间，然后当我最终决定向人们询问时，我会在两分钟内解决它。对我感到羞耻。这个网站必定是某种神秘的头脑风暴。

无论如何，线索是使用

Smalltalk at: #

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

所以

myClass addToComposition:(Smalltalk at: #TraitPruebaCondicion1).

解决我的问题。