Christoph Thiede uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.485.mcz
==================== Summary ====================
Name: Tests-ct.485 Author: ct Time: 30 April 2022, 7:50:59.794971 pm UUID: a69bcff7-8786-c948-b8d3-9a0472bebbda Ancestors: Tests-mt.484
Documents a parser bug during removal of empty temp declarations.
=============== Diff against Tests-mt.484 ===============
Item was added: + ----- Method: CompilerExceptionsTest>>basicCompile:do: (in category 'private') ----- + basicCompile: sourceString do: aBlock + + | result | + originalText := text := sourceString. + previousSelection := originalSelection := 1 to: text size + 1. + selectionInterval := nil. + result := aBlock value. + result ifNil: [^ self]. + selectionInterval := originalSelection.!
Item was changed: ----- Method: CompilerExceptionsTest>>compile: (in category 'private') ----- + compile: sourceCode - compile: sourceString
+ sourceCode isBlock ifTrue: [^ sourceCode value]. + + ^ self basicCompile: sourceCode do: + [self class + compileSilently: text + classified: 'generated' + notifying: self]! - | result | - originalText := text := sourceString. - previousSelection := originalSelection := 1 to: text size + 1. - selectionInterval := nil. - result := self class - compileSilently: text - classified: 'generated' - notifying: self. - result ifNil: [^ self]. - selectionInterval := originalSelection.!
Item was added: + ----- Method: CompilerExceptionsTest>>compileNoPattern: (in category 'private') ----- + compileNoPattern: sourceString + + ^ self basicCompile: sourceString do: + [self class newCompiler + compileNoPattern: text + in: self class + notifying: self + ifFail: []]!
Item was changed: ----- Method: CompilerExceptionsTest>>testUnusedVariable (in category 'tests') ----- testUnusedVariable
self compiling: 'griffle | goo | ^nil' shouldRaise: UnusedVariable andSelect: [self text] testing: { [:ex | ex resume] -> [self assertCanceled]. false -> [self assertSucceeded]. true -> [self assertSucceeded: 'griffle\s*^nil' asRegex] }. + self + compiling: [self compileNoPattern: '| goo|^ nil' "note there is no space between the variable and the bar"] + shouldRaise: UnusedVariable + andSelect: [self text] + testing: { true -> [self assertSucceeded: '\s*^ nil' asRegex] }. self compiling: 'griffle ^[ | goo | ]' shouldRaise: UnusedVariable andSelect: [self text] testing: { [:ex | ex resume] -> [self assertCanceled]. false -> [self assertSucceeded]. true -> [self assertSucceeded: 'griffle ^[\s*]' asRegex] }.!