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