Merge pull request #703 from moosetechnology/deprecations

jecisc · web-flow · commit cc92465e0bb2 · 2024-01-30T16:23:47.000+01:00
Remove some deprecated calls
diff --git a/src/Famix-MetamodelBuilder-Core/FmxMBRealRingEnvironment.class.st b/src/Famix-MetamodelBuilder-Core/FmxMBRealRingEnvironment.class.st
@@ -168,7 +168,7 @@ FmxMBRealRingEnvironment >> recordMethodsAdoptionsOf: realClass to: anRGClass re
 FmxMBRealRingEnvironment >> recordPackagesChangesFor: resolvedPackages [
 
 	resolvedPackages
-		reject: [ :each | self packageOrganizer includesPackageNamed: each name ]
+		reject: [ :each | self packageOrganizer hasPackage: each name ]
 		thenDo: [ :each | changesToApply add: (FmxPackageAddition named: each name) ]
 ]
 
diff --git a/src/FamixTestGenerator/FamixTestGenerator.class.st b/src/FamixTestGenerator/FamixTestGenerator.class.st
@@ -18,9 +18,8 @@ FamixTestGenerator >> classes [
 
 { #category : #'as yet unclassified' }
 FamixTestGenerator >> createPackageToPutGeneratedTests [
-	(RPackageOrganizer new includesPackageNamed: self generator prefix, '-Tests') ifFalse: 
-	[RPackageOrganizer new createPackageNamed: self generator prefix, '-Tests']
 
+	(RPackageOrganizer new hasPackage: self generator prefix , '-Tests') ifFalse: [ RPackageOrganizer new ensurePackage: self generator prefix , '-Tests' ]
 ]
 
 { #category : #accessing }

Original file line number	Diff line number	Diff line change
`@@ -168,7 +168,7 @@ FmxMBRealRingEnvironment >> recordMethodsAdoptionsOf: realClass to: anRGClass re`
`168`	`168`	`FmxMBRealRingEnvironment >> recordPackagesChangesFor: resolvedPackages [`
`169`	`169`
`170`	`170`	`resolvedPackages`
`171`		`- reject: [ :each \| self packageOrganizer includesPackageNamed: each name ]`
	`171`	`+ reject: [ :each \| self packageOrganizer hasPackage: each name ]`
`172`	`172`	`thenDo: [ :each \| changesToApply add: (FmxPackageAddition named: each name) ]`
`173`	`173`	`]`
`174`	`174`
Original file line number	Diff line number	Diff line change
`@@ -18,9 +18,8 @@ FamixTestGenerator >> classes [`
`18`	`18`
`19`	`19`	`{ #category : #'as yet unclassified' }`
`20`	`20`	`FamixTestGenerator >> createPackageToPutGeneratedTests [`
`21`		`- (RPackageOrganizer new includesPackageNamed: self generator prefix, '-Tests') ifFalse:`
`22`		`- [RPackageOrganizer new createPackageNamed: self generator prefix, '-Tests']`
`23`	`21`
	`22`	`+ (RPackageOrganizer new hasPackage: self generator prefix , '-Tests') ifFalse: [ RPackageOrganizer new ensurePackage: self generator prefix , '-Tests' ]`
`24`	`23`	`]`
`25`	`24`
`26`	`25`	`{ #category : #accessing }`