The Trunk: KernelTests-ul.154.mcz

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

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

Name: KernelTests-ul.154
Author: ul
Time: 12 July 2010, 3:13:39.692 pm
UUID: 4a923996-67c9-864e-b625-82d78b7e03f5
Ancestors: KernelTests-cmm.153, KernelTests-HenrikSperreJohansen.152

merged

=============== Diff against KernelTests-cmm.153 ===============

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
+ !