Fix tests

jecisc · May 7, 2024 · c16ef50 · c16ef50
1 parent 4d6e17c
commit c16ef50
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Kernel-ExtraUtils/ClassHierarchyPrinter.class.st b/src/Kernel-ExtraUtils/ClassHierarchyPrinter.class.st
@@ -14,7 +14,7 @@ ClassHierarchyPrinter new
 		doNotShowState;
 		doNotShowSuperclasses;
 		excludedClasses: (ASTNode withAllSubclasses select: [ :each | each name beginsWith: 'RBPattern' ]);
-		limitedToClasses: (ASTNode withAllSubclasses select: [:each | each name beginsWith: 'AST' or: [ each name beginsWith: 'RB' ]]]).
+		limitedToClasses: (ASTNode withAllSubclasses select: [:each | (each name beginsWith: 'AST') or: [ each name beginsWith: 'RB' ]]]).
 ```
 
 produces 

diff --git a/src/Kernel-ExtraUtils/ClassHierarchyPrinterTest.class.st b/src/Kernel-ExtraUtils/ClassHierarchyPrinterTest.class.st
@@ -33,14 +33,14 @@ End'
 ]
 
 { #category : 'tests' }
-ClassHierarchyPrinterTest >> testOnlyRBASTNodes [
+ClassHierarchyPrinterTest >> testOnlyASTNodes [
 
 	printer
 		forClass: ASTNode;
 		doNotShowState;
 		doNotShowSuperclasses;
 		excludedClasses: (ASTNode withAllSubclasses select: [ :each | each name beginsWith: 'RBPattern' ]);
-		limitedToClasses: (ASTNode withAllSubclasses select: [:each | each name beginsWith: 'RB' or: [ each name beginsWith: 'AST' ]]).
+		limitedToClasses: (ASTNode withAllSubclasses select: [:each | (each name beginsWith: 'RB') or: [ each name beginsWith: 'AST' ]]).
 	self assert: printer print equals:
 	'ASTNode
 	RBProgramNode