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

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 :