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