Remove not existing method for Pharo 11

OpenSmock · Oct 10, 2023 · 5bbe3a4 · 5bbe3a4
1 parent edade44
commit 5bbe3a4
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 5 deletions.
diff --git a/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st b/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st
@@ -35,9 +35,13 @@ PyramidSaveModelVerifier class >> classPackageIsEqual [
 					  class package name = model savingPackageName
 						  ifTrue: [ true ]
 						  ifFalse: [
-							  class packageTag ifNil: [ false ] ifNotNil: [
-									  class package name , '-' , class packageTag name
-									  = model savingPackageName ] ] ]
+							  class package classTags
+								  detect: [ :tag | tag includesClass: class ]
+								  ifFound: [ :tag |
+									  class package name , '-' , tag name
+									  = model savingPackageName ]
+								  ifNone: [ false ].
+							   ] ]
 				  ifAbsent: [ true ] ];
 		  showBlock: [ :view | view showClassPackageIsNotEqualError ];
 		  yourself

diff --git a/src/Pyramid-Tests/PyramidSavingServiceTest.class.st b/src/Pyramid-Tests/PyramidSavingServiceTest.class.st
@@ -111,12 +111,17 @@ PyramidSavingServiceTest >> testCanSave [
 	model savingClassName: self savingClass name.
 	model savingMethodName: 'aPyramidSavingMethod'.
 	model savingPackageName:
-		self savingClass package name , '-' , self savingClass packageTag name.
+		self savingClass package name , '-cases-plugin-save'.
 	self assert: self savingService canSave.
 
 	model savingClassName: self savingClass name.
 	model savingMethodName: 'aPyramidSavingMethod'.
-	model savingPackageName: self savingClass package name , 'notTheSame'.
+	model savingPackageName: self savingClass package name , 'notTheSamePackage'.
+	self deny: self savingService canSave.
+
+model savingClassName: self savingClass name.
+	model savingMethodName: 'aPyramidSavingMethod'.
+	model savingPackageName: self savingClass package name , '-notTheSameTag'.
 	self deny: self savingService canSave
 ]