Fix #35

pharo-contributions · May 28, 2024 · d60a4a6 · d60a4a6
1 parent d4cf5b1
commit d60a4a6
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/XML-Parser-Tests/DTDExternalEntityResolverTest.class.st b/src/XML-Parser-Tests/DTDExternalEntityResolverTest.class.st
@@ -79,9 +79,8 @@ DTDExternalEntityResolverTest >> testDecoratorInterfaceCompatibility [
 	resolver := self newResolver.
 	resolverBaseClass := DTDExternalEntityResolver.
 	"avoid #methodsDo: for GS compatibility"
-	resolverBaseClass selectorsDo: [:each |
-		"use #whichCategoryIncludesSelector: for backwards compatibility"
-		((resolverBaseClass whichCategoryIncludesSelector: each)
+	resolverBaseClass selectorsDo: [:each |		 
+		((self whichProtocolIn: resolverBaseClass includesSelector: each)
 			asString beginsWith: 'private')
 			ifFalse: [
 				self assert: (resolver respondsTo: each)]]