Eliot Miranda uploaded a new version of ShoutTests to project The Trunk:
http://source.squeak.org/trunk/ShoutTests-eem.34.mcz

==================== Summary ====================

Name: ShoutTests-eem.34
Author: eem
Time: 12 July 2022, 2:55:13.45162 pm
UUID: 62cd92a6-72ae-4019-9bb0-f322c3f51b95
Ancestors: ShoutTests-mt.33

Add a test for unary selectors beginning and/or ending with underscores, which are legal if Scanner prefAllowUnderscoreSelectors.

=============== Diff against ShoutTests-mt.33 ===============

Item was added:
+ ----- Method: SHParserST80Test>>expectedFailures (in category 'failures') -----
+ expectedFailures
+ 	^Scanner prefAllowUnderscoreSelectors
+ 		ifTrue: [#()]
+ 		ifFalse: [#(testUnaryUnderscoreSelectors)]!

Item was added:
+ ----- Method: SHParserST80Test>>testUnaryUnderscoreSelectors (in category 'tests') -----
+ testUnaryUnderscoreSelectors
+ 
+ 	| types tokens s |
+ 	s := 'x self _this_is: #legal. self _but_this_is_also. self as_is_this_. self _and_even_this_.'.
+ 	types := self tokenTypesIn: s.
+ 	tokens := self tokensIn: s. 
+ 	self assert: types = #(patternUnary													"x"
+ 							self undefinedKeyword symbol symbol statementSeparator	"self _this_is: #legal."
+ 							self undefinedUnary statementSeparator						"self _but_this_is_also."
+ 							self undefinedUnary statementSeparator						"self as_is_this_."
+ 							self undefinedUnary statementSeparator).					"self _and_even_this_."
+ 
+ 	self assert: tokens = #('x' 'self' '_this_is:' '#' '#legal' '.' 'self' '_but_this_is_also' '.' 'self' 'as_is_this_' '.' 'self' '_and_even_this_' '.')!