Merge pull request SeasideSt#180 from marschall/add-Depreaction

Johan Brichau · web-flow · commit 49a3d6e19ea8 · 2024-07-17T23:36:17.000+02:00
Support Pharo native Deprecation
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st
@@ -0,0 +1,6 @@
+exceptions
+deprecationExceptionSet
+	"Answer the exception set that should considered besides WADeprecation."
+	^ ExceptionSet new
+		add: Deprecation;
+		yourself
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st
@@ -0,0 +1,6 @@
+exceptions
+deprecationExceptionSet
+	"Answer the exception set that should considered besides WADeprecation."
+	^ ExceptionSet new
+		add: Deprecation;
+		yourself
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st
@@ -0,0 +1,6 @@
+exceptions
+deprecationExceptionSet
+	"Answer the exception set that should considered besides WADeprecation."
+	^ ExceptionSet new
+		add: Deprecation;
+		yourself
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st
@@ -0,0 +1,10 @@
+tests
+testDeprecationExceptionSet
+	| value |
+	value := [
+		"intentially send Pharo instead of Grease deprecation message"
+		self deprecated: 'test'.
+		'failed' ]
+			on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet
+			do: [ :e | 'passed' ].
+	self assert: value = 'passed'
