The Trunk: KernelTests-HenrikSperreJohansen.152.mcz

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-HenrikSperreJohansen.152.mcz

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

Name: KernelTests-HenrikSperreJohansen.152
Author: HenrikSperreJohansen
Time: 11 June 2010, 9:21:51.574 pm
UUID: 1c779df0-38f5-664b-b09e-f57cc1cac842
Ancestors: KernelTests-nice.151

Test for temp values when restarting blocks, fixed in Kernel-HenrikSperreJohansen.458

=============== Diff against KernelTests-nice.151 ===============

Item was added:
+ ----- Method: MethodContextTest>>testRestart (in category 'tests') -----
+ testRestart
+ self should: [self privRestartTest] notTakeMoreThan: 0.1 second!

Item was added:
+ ----- Method: MethodContextTest>>privRestartTest (in category 'private') -----
+ privRestartTest
+ "This tests may loop endlessly if incorrect, so call it from another method testing it does not time out"
+ |a firstTimeThrough |
+ firstTimeThrough := true.
+ a := 10.
+
+ self assert: 30 equals: [|b|
+ self assert: 10 == a .
+ self assert: nil == b.
+ b := a + 20.
+ firstTimeThrough ifTrue: [
+ firstTimeThrough := false.
+ thisContext restart.].
+ b] value
+ !