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

[Menanteau Jannick]

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