small extension to famix

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
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

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

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev