Hi!
I am thinking about extending FAMIXClass with the following:
withAllSuperclasses ^ self superclassHierarchyGroup
isPharoTest ^ self superclassHierarchyGroup anySatisfy: [ :c | c name = 'TestCase’ ]
Does this makes sense?
Alexandre
On 13/8/14 15:59, Alexandre Bergel wrote:
Hi!
I am thinking about extending FAMIXClass with the following:
withAllSuperclasses ^ self superclassHierarchyGroup
I prefer withAllSuperclasses than its counter part :)
isPharoTest ^ self superclassHierarchyGroup anySatisfy: [ :c | c name = 'TestCase’ ]
this one could be moved to the smalltalk extension.
Does this makes sense?
Alexandre