Add test for Pharo deprecation

marschall · marschall · commit b0d0149aeeb9 · 2024-07-13T11:30:45.000+02:00
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'
