[Moose-dev] Unitary Test with Moose don't work
jannick.menanteau at free.fr
Thu Jul 24 17:54:12 MEST 2008
I would like to make unitary test for several Moose methods.
In this context, I don't use the Moose interface.
I've done this in a method :
model := MooseModel new name: 'model'.
importer := NameSpaceImporter new importingContext:
(NameSpaceImporter new importingContext mergeClassAndMetaclass).
importer model: model; add: Pack1; run.
i := (model entityNamed:#'ModelForQualixoTest') definedClasses .
l := (model entityNamed:#'Root::Smalltalk::Pack1::Class1Pack1')
k := (model entityNamed:#'Root::Smalltalk::Pack1::Class2Pack1')
Class1Pack1 create new object from Class2Pack1.
fanOut for Class1Pack1 must be 1.
The result waited is :
i = OrderedCollection --> ok
l = 1 --> it returns 0
k = 0 --> ok
In Moose interface, the result is good.
I don't know what is the problem :(
Thanks for helping
More information about the Moose-dev