- This PR adds tests for RBGenericNodeVisitor

- adds #visit:anySatisfy: and #visit:noneSatify: 
- move RBCommentNodeVisitorTest close to the other visitor tests

src/AST-Core-Tests/RBCommentNodeVisitorTest.class.st

@@ -4,7 +4,7 @@ SUnit tests for RBCommentNodeVisitor
 Class {
 	#name : #RBCommentNodeVisitorTest,
 	#superclass : #RBParseTreeTest,
-	#category : #'AST-Core-Tests-Nodes'
+	#category : #'AST-Core-Tests-Visitors'
 }
 
 { #category : #tests }

src/AST-Core-Tests/RBGenericNodeVisitorTest.class.st

@@ -0,0 +1,50 @@
+Class {
+	#name : #RBGenericNodeVisitorTest,
+	#superclass : #RBParseTreeTest,
+	#category : #'AST-Core-Tests-Visitors'
+}
+
+{ #category : #tests }
+RBGenericNodeVisitorTest >> testVisitAnySatisfy [
+	| result tree |
+	tree := self parseExpression: 'Object new'.
+	result := RBGenericNodeVisitor visit: tree anySatisfy: [ :n | n isMessage ].
+	self assert: result.
+	result := RBGenericNodeVisitor visit: tree anySatisfy: [ :n | n isReturn ].
+	self deny: result
+]
+
+{ #category : #tests }
+RBGenericNodeVisitorTest >> testVisitDetect [
+	| node tree |
+	tree := self parseExpression: 'Object new'.
+	node := RBGenericNodeVisitor  visit: tree detect: [ :n | n isMessage ].
+	self  assert: node isMessage
+]
+
+{ #category : #tests }
+RBGenericNodeVisitorTest >> testVisitDetectIfNone [
+	| result tree |
+	tree := self parseExpression: 'Object new'.
+	result := RBGenericNodeVisitor visit: tree detect: [ :n | n isReturn ] ifNone: [ #none ].
+	self assert: result equals: #none
+]
+
+{ #category : #tests }
+RBGenericNodeVisitorTest >> testVisitNoneSatisfy [
+	| result tree |
+	tree := self parseExpression: 'Object new'.
+	result := RBGenericNodeVisitor visit: tree noneSatisfy: [ :n | n isMessage ].
+	self deny: result.
+	result := RBGenericNodeVisitor visit: tree noneSatisfy: [ :n | n isReturn ].
+	self assert: result
+]
+
+{ #category : #tests }
+RBGenericNodeVisitorTest >> testVisitSelect [
+	| result tree |
+	tree := self parseExpression: 'Object new'.
+	result := RBGenericNodeVisitor visit: tree select: [ :n | n isMessage ].
+	self assert: result size equals: 1.
+	self assert: result first selector equals: #new
+]

src/AST-Core/RBAbstractBlockVisitor.class.st

@@ -12,6 +12,14 @@ Class {
 	#category : #'AST-Core-Visitors'
 }
 
+{ #category : #enumerating }
+RBAbstractBlockVisitor class >> visit: aTree anySatisfy: aBlock [
+	self
+		visit: aTree
+		do: [ :node | (aBlock value: node) ifTrue: [ ^ true ] ].
+	^ false
+]
+
 { #category : #enumerating }
 RBAbstractBlockVisitor class >> visit: aTree detect: aBlock [
 
@@ -33,6 +41,14 @@ RBAbstractBlockVisitor class >> visit: aTree do: aBlock [
 		visitNode: aTree
 ]
 
+{ #category : #enumerating }
+RBAbstractBlockVisitor class >> visit: aTree noneSatisfy: aBlock [
+	self
+		visit: aTree
+		do: [ :node | (aBlock value: node) ifTrue: [ ^ false ] ].
+	^ true
+]
+
 { #category : #enumerating }
 RBAbstractBlockVisitor class >> visit: aTree select: aBlock [
 	| result |