Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1209.mcz
==================== Summary ====================
Name: Kernel-eem.1209
Author: eem
Time: 2 January 2019, 6:30:39.793608 pm
UUID: 5524e880-035b-4429-a52f-72f66eb53756
Ancestors: Kernel-eem.1208
Provide a method that answers the nested block methods in a method compiled with full blocks. This is somewhat similar to embeddedBlockClosures, but answers the CompiledBlock methods, not representative closures around them, and does not require interpreting code, merely recursively traversing CompiledCode literals.
=============== Diff against Kernel-eem.1208 ===============
Item was added:
+ ----- Method: CompiledMethod>>nestedBlockMethods (in category 'closures') -----
+ nestedBlockMethods
+ "Answer a collection of the block methods of blocks within the receiver, if any."
+ | nestedBlockMethods iterator |
+ nestedBlockMethods := OrderedCollection new.
+ iterator := [:m| | nLits |
+ nLits := m numLiterals.
+ 2 to: (m isCompiledBlock ifTrue: [nLits] ifFalse: [nLits - 1]) do:
+ [:index | | lit |
+ lit := m objectAt: index.
+ lit isCompiledCode ifTrue:
+ [iterator value: (nestedBlockMethods add: lit)]]].
+ iterator value: self.
+ ^nestedBlockMethods
+ !
Fabio Niephaus uploaded a new version of SUnit to project The Trunk:
http://source.squeak.org/trunk/SUnit-fn.114.mcz
==================== Summary ====================
Name: SUnit-fn.114
Author: fn
Time: 1 January 2019, 11:17:27.195303 pm
UUID: 1fb994c8-2dce-4fab-9142-a3e6cd4728b7
Ancestors: SUnit-eem.113
Dynamically determine delay duration that exceeds the test's timeout. This way, the test also passes on low performance VMs (see Smalltalk>>#isLowerPerformance).
=============== Diff against SUnit-eem.113 ===============
Item was changed:
----- Method: SUnitTest>>testTestTimeout (in category 'testing') -----
testTestTimeout
+ self should:[(Delay forSeconds: (self timeoutForTest + 1)) wait] raise: TestFailure.
- self should:[(Delay forSeconds: 6) wait] raise: TestFailure.
!