Merge pull request #14604 from hernanmd/issues_expression_finder_rb

Search strings without symbols using RB pattern matcher

Author: jecisc

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

@@ -48,6 +48,28 @@ RBPatternParserTest >> testParseFaultyPatternBlock [
 			self assert: node isFaulty]
 ]
 
+{ #category : #'tests - parsing' }
+RBPatternParserTest >> testPatternNotStringExpression [
+	| searchPattern tree |
+	searchPattern := RBPatternParser parseExpression: '`{ :node | node isString }'.
+
+	tree := self parseExpression: 'a = a1'.
+
+	self deny: (searchPattern match: tree inContext: Dictionary new).
+
+]
+
+{ #category : #'tests - parsing' }
+RBPatternParserTest >> testPatternStringExpression [
+	| searchPattern tree |
+	searchPattern := RBPatternParser parseExpression: '`{ :node | node isString }'.
+
+	tree := self parseExpression: '''justAString'''.
+
+	self assert: (searchPattern match: tree inContext: Dictionary new).
+
+]
+
 { #category : #'tests - parsing' }
 RBPatternParserTest >> testPatternVariable [
 	| searchPattern |

src/AST-Core/RBLiteralValueNode.class.st

@@ -67,6 +67,12 @@ RBLiteralValueNode >> evaluateForReceiver: aReceicer [
 	^ value
 ]
 
+{ #category : #testing }
+RBLiteralValueNode >> isString [
+
+	^ value isString and: [ value isSymbol not ]
+]
+
 { #category : #accessing }
 RBLiteralValueNode >> sourceText [