Bug in PackageInfo?
Alexandre Bergel
Alexandre.Bergel at cs.tcd.ie
Thu May 11 15:08:44 UTC 2006
Hello,
I am currently working on an extension of OB to have a package/
hierarchy button in the browser (like in Visualworks). However, I
found some strange behavior in PackageInfo. I attached a small .cs to
this email that contains the following test:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
cls := self dummyClass.
cls compile: 'zork ^ 5' classified: ('*', self dummyPackageName).
cls compile: 'foo ^ 10' classified: '*MyStupidPackage1'.
cls compile: 'bar ^ self foo' classified: '*MyStupidPackage2'.
cls compile: 'barbar ^ self foo' classified: '*MyStupidPackage2-test'.
p1 := PackageInfo named: 'MyStupidPackage1'.
p2 := PackageInfo named: 'MyStupidPackage2'.
p3 := PackageInfo named: 'MyStupidPackage2-test'.
"BREAK HERE"
self assert: (p2 == p3).
self assert: (self dummyPackage coreMethods asSet = {(cls>>#zork)
methodReference} asSet).
self assert: ((p1 coreMethodsForClass: cls) asSet = {(cls>>#foo)
methodReference} asSet).
"SHOULD BARBAR BE INCLUDED OR NOT?"
self assert: ((p2 coreMethodsForClass: cls) asSet =
{(cls>>#bar) methodReference . (cls>>#barbar) methodReference}
asSet).
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
It seems that (p2 == p3) should be true.
What the monticello team thinks ?
If it is a bug, I propose myself to fix it.
Regards,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.cs.tcd.ie/Alexandre.Bergel
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: BugInPackageInfo.st
Type: application/octet-stream
Size: 2106 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20060511/39c4aaa7/BugInPackageInfo.obj
-------------- next part --------------
More information about the Squeak-dev
mailing list
|