|
Test to show the problem (RPackageTestMockClass is an empty class created)
testRemoveFromSystemRemovesProtocols | class | class := RPackageTestMockClass. self assert: class protocols isEmpty. RPackageOrganizer default createPackageNamed: 'RPackage-MockPackage'. class compile: 'aMethod ^ 1' classified: '*RPackage-MockPackage'. self assert: class protocols size equals: 1. (RPackageOrganizer default packageNamed: 'RPackage-MockPackage' ) ifAbsent: [ self deny: true description: 'RPackageMockPackage should exist since we compiled a method in it' ]) ifNotNil: # removeFromSystem. self assert: class protocols isEmpty
|
|
|
Priority: 5 – Fix If Time
|
|
Status: Work Needed
|
|
Assigned to: Everyone
|
|
Milestone: Later
|
Go to Case
|
|