[Pkg] The Trunk: Tests-mt.451.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.451.mcz

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

Name: Tests-mt.451
Author: mt
Time: 14 April 2021, 10:38:45.375489 am
UUID: 2cef30f0-b2f4-b742-8105-48ecd3ec8650
Ancestors: Tests-nice.450

Adds commentary to CompilerExceptionsTest to explain how the "tests spec" for simulated user interactions look like.

=============== Diff against Tests-nice.450 ===============

Item was changed:
  ----- Method: CompilerExceptionsTest>>compiling:shouldRaise:andSelect:testing: (in category 'private') -----
  compiling: sourceCode shouldRaise: exceptionClass andSelect: selectionMatch testing: tests
+ 	"Test behavior of the compiler for the given sourceCode and expected an exception of kind exceptionClass. Other arguments:
+ 		* selectionMatch is used to check the selection of the source text that is active when an exception has occured. Can be a text, an interval, or a predicate block. See #assertSelection:.
+ 		* tests is an array of associations representing pairs of reactions (key) to the exception and the assertion (value) that should be run afterward.
+ 			* The key can be a boolean for answering yes/no dialogs, a string for selecting a named option from a dialog window, or a one-arg block to handle the occuring exception in a different way (see #handlerBlockFor:).
+ 			* The value can be either a string that will be compared to the final compiler source code or a custom assertion block that will be evaluated after the compilation has terminated (see #testBlockFor:)."
  
  	| referenceTest |
  	referenceTest := [] -> [].
  	(tests copyWithFirst: referenceTest) associationsDo: [:test |
  		self
  			should: [self compile: sourceCode]
  			raise: exceptionClass
  			thenDo: [:exception |
  				self assertSelection: selectionMatch.
  				previousSelection := self selectionInterval.
  				(self handlerBlockFor: test key) cull: exception].
  		(self testBlockFor: test value) value].!