A new version of KernelTests was added to project The Inbox:
http://source.squeak.org/inbox/KernelTests-ct.390.mcz

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

Name: KernelTests-ct.390
Author: ct
Time: 13 November 2020, 7:32:56.168415 pm
UUID: e3e74615-91ed-8942-be3a-3846b53f7b75
Ancestors: KernelTests-ct.389

Complements Kernel-ct.1365 (BlockClosure >> #generateExpressionWithArguments:).

=============== Diff against KernelTests-ct.389 ===============

Item was added:
+ ----- Method: BlockClosureTest>>assertSource:equals: (in category 'assertions') -----
+ assertSource: expected equals: actual
+ 
+ 	^ self
+ 		assert: (Compiler new compileNoPattern: expected in: self class notifying: nil ifFail: nil) printString
+ 		equals: (Compiler new compileNoPattern: actual in: self class notifying: nil ifFail: nil) printString!

Item was added:
+ ----- Method: BlockClosureTest>>testGenerateExpression (in category 'tests - printing') -----
+ testGenerateExpression
+ 	<resumable>
+ 
+ 	"Functional style with literals"
+ 	self assertSource: '6 * 7' equals: [6 * 7] generateExpression.
+ 	self assertSource: 'true == false ~= nil' equals: [true == false ~= nil] generateExpression.
+ 	
+ 	"Argument names"
+ 	self assertSource: 'foo + 1' equals:
+ 		([:x | x + 1] generateExpressionWithArguments: #('foo')).
+ 	self assertSource: '(foo * bar) yourself - bar' equals:
+ 		([:x :y | (x * y) yourself - y] generateExpressionWithArguments: #('foo' 'bar')).
+ 	
+ 	"Temporaries"
+ 	self assertSource: '| y | y := z negated. y == z' equals:
+ 		([:x | | y | y := x negated. y == x] generateExpressionWithArguments: #('z')).
+ 	
+ 	"Global bindings"
+ 	self assertSource: 'Object name size' equals: [Object name size] generateExpression.
+ 	
+ 	"Receiver access"
+ 	self should: [[testSelector] generateExpression] raise: Error.
+ 	self should: [[self] generateExpression] raise: Error.
+ 	self should: [[super] generateExpression] raise: Error.
+ 	Object new in: [:temp |
+ 		self should: [[temp] generateExpression] raise: Error].
+ 	42 in: [:temp |
+ 		self assertSource: '42' equals: [temp] generateExpression].!