Made ‘preTestingPharo.st’ ensure there are no #asJson methods on Dict…

…ionary, OrderedDictionary and SequenceableCollection when testing on Glamorous Toolkit (see issue #1433, “Implementations of #asJson in Seaside and GToolkit conflict”).
SeasideSt · Jul 16, 2024 · c0e63ad · c0e63ad
1 parent 85ec264
commit c0e63ad
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/scripts/preTestingPharo.st b/scripts/preTestingPharo.st
@@ -1 +1,5 @@
-Deprecation activateTransformations: false.
+Deprecation activateTransformations: false.
+(Smalltalk hasClassNamed: 'GtImageSetup') ifTrue: [
+	{ Dictionary. OrderedDictionary. SequenceableCollection } do: [ :class |
+		(class includesSelector: #asJson) ifTrue: [
+			class removeSelector: #asJson ] ] ].