Do not remove system packages in MooseScripts class>>#packageNamesFor:withTestPackages:

jecisc · jecisc · commit 319e1c0ef5ee · 2024-04-16T14:38:35.000+02:00
diff --git a/src/Moose-SmalltalkImporter-Core-Tests/MooseScripts.class.st b/src/Moose-SmalltalkImporter-Core-Tests/MooseScripts.class.st
@@ -256,7 +256,6 @@ MooseScripts class >> packageNamesFor: aPrefixString withTestPackages: aBoolean
 	"
 
 	| packages packageNames aTestPrefixString |
-	self packageOrganizer unregisterPackageNamed: aPrefixString.
 	packages := self packageOrganizer packages select: [ :each | aPrefixString match: each name ].
 	packageNames := packages collect: [ :pak | pak name ].
 	aBoolean ifFalse: [

Original file line number	Diff line number	Diff line change
`@@ -256,7 +256,6 @@ MooseScripts class >> packageNamesFor: aPrefixString withTestPackages: aBoolean`
`256`	`256`	`"`
`257`	`257`
`258`	`258`	`\| packages packageNames aTestPrefixString \|`
`259`		`- self packageOrganizer unregisterPackageNamed: aPrefixString.`
`260`	`259`	`packages := self packageOrganizer packages select: [ :each \| aPrefixString match: each name ].`
`261`	`260`	`packageNames := packages collect: [ :pak \| pak name ].`
`262`	`261`	`aBoolean ifFalse: [`