[Moose-dev] Unitary Test with Moose don't work

Hi all,

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') fanOut. k := (model entityNamed:#'Root::Smalltalk::Pack1::Class2Pack1') fanOut.

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