30 Sep
2011
30 Sep
'11
5:24 p.m.
Status: New
Owner: ----
Labels: Type-Defect Priority-Medium Component-Hismo Milestone-4.6
New issue 717 by alexandr...(a)gmail.com: Hismo and isStub
http://code.google.com/p/moose-technology/issues/detail?id=717
The following test fails. No idea why. ClassB is a stub
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
testStubAndHismo
| allModelClasses allHistoryModelClasses mooseSampleData sampleMooseModel
hismoHistoryModel |
mooseSampleData := MooseSampleData new.
sampleMooseModel := (mooseSampleData readMSEString: self sampleMSE)
name: #'example'.
allModelClasses := sampleMooseModel allModelClasses.
self assert: (sampleMooseModel allModelClasses size = 1).
self assert: (sampleMooseModel allClasses size = 2).
hismoHistoryModel := HismoModelHistory new.
hismoHistoryModel addLastVersionForMooseModel: sampleMooseModel.
allHistoryModelClasses := hismoHistoryModel allClassHistories
select: [:each | each last isStub not].
self assert: allModelClasses size = allHistoryModelClasses size
sampleMSE
^ '(
(FAMIX.Namespace (id: 1) (name ''aNamespace''))
(FAMIX.Class (id: 2) (name ''ClassA'') (container (ref: 1))
(parentPackage
(ref: 201)))
(FAMIX.Method (name ''methodA1'') (signature
''methodA1()'') (parentType
(ref: 2)) (LOC 2))
(FAMIX.Attribute (name ''attributeA1'') (parentType (ref: 2)))
(FAMIX.Class (id: 3) (name ''ClassB'') (container (ref: 1)) (isStub true)
(parentPackage (ref: 201)))
(FAMIX.Inheritance (subclass (ref: 3)) (superclass (ref: 2)))
(FAMIX.Package (id: 201) (name ''aPackage''))
(FAMIX.Package (id: 202) (name ''aPackage'') (parentPackage (ref: 201)))
)'
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Indeed, it looks like MooseEntity>>isStub is the trouble maker.
We need to create an issue.
In the meantime you can use:
allHistoryModelClasses := hismoHistoryModel allClassHistories
select: [:each | each last versionEntity
isStub not].