Hi,

I've not published my code for the moment.

My code is : (for testing)
---
| model l importer i r d |
model := MooseModel new name: 'model'.
importer := NameSpaceImporter new importingContext: (NameSpaceImporter new importingContext mergeClassAndMetaclass).
importer model: model; add: Smalltalk.Pack1; run.
i := (model entityNamed:#'ModelForQualixoTest') definedClasses .
l :=  (model entityNamed:#'Root::Smalltalk::Pack1::Class1Pack1') invokedClasses.
d :=  (model entityNamed:#'Root::Smalltalk::Pack1::Class2Pack1') invokingClasses.
r :=  (model entityNamed:#'Root::Smalltalk::Pack1::Class3Pack1') invokingClasses.
---
Results are :

i = Set (a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class1Pack1' a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class4Pack1' a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class3Pack1' a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class2Pack1')

l = OrderedCollection (a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class4Pack1')
d = OrderedCollection (a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class1Pack1')
r = OrderedCollection (a SCG.Moose.FAMIXClass #'Root::Smalltalk::Pack1::Class1Pack1')

---

It's not logical : Class2Pack1 and Class3Pack1 are invoked by Class1Pack1 (variable d and r) whereas L show that Class1Pack1 invokes Class4Pack1.

For information, in Class1Pack1, there is just a "new" on the three others classes.
I also point out that the result is good in Moose.

Have I do an error in declaration of "importer" ? 

Thanks for your help



Le 24 juil. 08 à 22:51, Tudor Girba a écrit :

Hi,

It is easier to answer if we can take a look at the actual code. Where  
can I load it from?

Cheers,
Doru


On Jul 24, 2008, at 5:54 PM, Menanteau Jannick wrote:

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
_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
www.tudorgirba.com
www.tudorgirba.com/blog

"Beauty is where we see it."


_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev