[squeak-dev] The Inbox: KernelTests-ct.389.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Nov 1 18:54:43 UTC 2020


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

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

Name: KernelTests-ct.389
Author: ct
Time: 1 November 2020, 7:54:42.403428 pm
UUID: 7c294d2e-59a7-9746-b613-997d1aa4521c
Ancestors: KernelTests-ul.386

Extend tests for Context #runSimulated:. Depends on Kernel-ct.1359.

=============== Diff against KernelTests-ul.386 ===============

Item was added:
+ ----- Method: BlockClosureTest>>return: (in category 'private') -----
+ return: something
+ 
+ 	^ something!

Item was changed:
  ----- Method: BlockClosureTest>>testRunSimulated (in category 'tests') -----
  testRunSimulated
+ 	self assert: Rectangle equals:
+ 		(Context runSimulated: aBlockClosure asContext) class.
+ 	self assert: 42 equals:
+ 		(Context runSimulated: [self return: 42]).
+ 	self
+ 		should: [Context runSimulated: [self halt]]
+ 		raise: Halt.!
- 	self assert: Rectangle equals: (Context runSimulated: aBlockClosure asContext) class!

Item was added:
+ ----- Method: BlockClosureTest>>testRunSimulatedContextAtEachStep (in category 'tests') -----
+ testRunSimulatedContextAtEachStep
+ 
+ 	| context |
+ 	context := aBlockClosure asContext.
+ 	self assert: Rectangle equals: (thisContext
+ 		runSimulated: context
+ 		contextAtEachStep: [:ctxt | self assert:
+ 			[ctxt == context or: [ctxt hasSender: context]]]) class.!



More information about the Squeak-dev mailing list