The Trunk: Tests-laza.74.mcz

Alexander Lazarević uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-laza.74.mcz

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

Name: Tests-laza.74
Author: laza
Time: 8 April 2010, 11:24:07.663 am
UUID: cf36faac-2a6b-4e02-ae47-0dd611cbe41f
Ancestors: Tests-ar.73

Addressing http://bugs.squeak.org/view.php?id=7213

=============== Diff against Tests-ar.73 ===============

Item was added:
+ TestCase subclass: #FlapTabTests
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Bugs'!
+
+ !FlapTabTests commentStamp: 'wiz 6/11/2007 17:58' prior: 0!
+ A FlapTabTests is here to test infinite recursion bug when extent: message is sent to some flap tabs see
+ http://bugs.squeak.org/view.php?id=6486 
+ for report.
+
+ Instance Variables
+ We inherit cases which can be filled with morphs that need to be deleted at the end of the test.
+
+ !

Item was added:
+ ----- Method: FlapTabTests>>testFlapTabRecusion (in category 'tests') -----
+ testFlapTabRecusion
+ | a b tab |
+ "Create a float close to 466.700581395349"
+ a := 1.1
+ at: 1 put: 1081944885;
+ at: 2 put: 2497074009;
+ yourself.
+ b := 105.
+ self deny: a + b - a = b.
+
+ tab := Flaps newFlapTitled: 'Test' onEdge: #top.
+ tab left: a.
+
+ self
+ should: [tab extent: b asPoint]
+ notTakeMoreThanMilliseconds: 10
+ !