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