The Trunk: KernelTests-ct.389.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: KernelTests-ct.389.mcz

commits-2
Eliot Miranda uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/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.!