8 Aug
2008
8 Aug
'08
7:03 p.m.
a new version of Moose Development:
FAMIXPackage>>isStub
isStub
"a fAMIXPackage isStub if it is declared as stub or if all its
classes and the classes extended in it are stubs -Note that in the
last case it should contain at less one class or extended class-"
^super isStub
or:
[(self definedClasses isEmpty and: [self extendedClasses isEmpty])
not
and:
[(self definedClasses allSatisfy: [:each | each isStub])
and:
[self extendedClasses allSatisfy: [:each| each isStub]]]]
----> one related test is fixted: when a package has no class it is
not surely a stub.