diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ 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 \ No newline at end of file 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 new file mode 100644 index 00000000..33cfb193 --- /dev/null +++ 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' \ No newline at end of file